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EDITORIAL 





Chers Membres, 


Janick Taillandier, Jean-Jacques Dhénin et moi-même sommes 
heureux de vous présenter ce nouveau numéro de JPC. 


Ce numéro couronne une année d’efforts. Cela fait en effet un an que 
nous travaillons d’arrache pied tous les trois pour que le Club réponde 
à vos aspirations. Je tiens à remercier ici Janick et Jean-Jacques. Sans 
eux, le Club ne serait pas ce qu’il est actuellement. 


Le meilleur moyen de nous encourager est de nous envoyer vos 
articles. Vous êtes nombreux à le faire, et je tiens à vous remercier 
également. A l'heure où beaucoup de Clubs étrangers connaissent 
quelques difficultés, nous sommes un exemple de vitalité. 


Je me retire sur la pointe des pieds, et vous laisse tourner la page. 


Pierre David (37) 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC 
Paris se réunit une fois par mois, en plein 
coeur de Paris. Amenez votre matériel, votre 
bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos 
collègues de PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est 
toujours présent. Ainsi, si vous désirez 
remettre votre article tout frais au Journal, si 
vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de 
JPC, ce sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en 
période de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous 
entendrez des éclats de rire et des discussions 


passionnées vers la salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 
Pour l'accès en métro, trois possibilités 


s'offrent à vous : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté 
pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première lors de ces réunions... A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 6 juin 1987 

Samedi 5 septembre 1987 

Samedi 3 octobre 1987 

Samedi 21 novembre 1987 

Samedi 5 décembre 1987 

Samedi 16 janvier 1988 

Samedi 20 février 1988 


Samedi 5 mars 1988 
Samedi 16 avril 1988 
Samedi 7 mai 1988 
Samedi 4 juin 1988 


Pierre David (37) 





AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme "l’équipe de rédaction" 
souhaite recevoir votre prose. C’est ici que se 
trouvent les réponses à vos questions. 


Dans la mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
(carte, cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens 
après copie. 


Si vous ne pouvez pas utiliser de support 
magnétique, ou ne pouvez vous rendre aux 
réunions, alors et alors seulement faites le sur 
papier. 


Que ce soit sur une feuille de papier, ou sur 
support magnétique, ne dépassez pas 50 
Caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte les commandes de formattage 
suivantes (et non les commandes du formatteur 
HP) : 


nAM 


centre un titre, par exemple : 
ATITRE 


"" (CHRS(92)) marque le début et la fin d’un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent le plus. Fin de 
paragraphe.\ 





N'oubliez pas de mettre les accents. Utilisez le 
jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront les redéfinitions de touches 
ci-dessous, ainsi que le fichier CHARLEX 
listé dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW!, CHR$(197); (é) 
DEF KEY 'fE', CHR$(193); (ê) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY 'fY', CHR$(203): (ù) 
DEF KEY ‘fU', CHR$(195): (à) 
DEF KEY ‘fl', CHR$(209): (1) 
DEF KEY 'f0!, CHR$(194); (6) 
DEF KEY 'f/!, CHR$(92); (\) 
DEF KEY 'fA', CHR$(192); (â) 
DEF KEY 'fS', CHR$(200): (à) 
DEF KEY 'fD', CHR$(205); (ë) 
DEF KEY 'fJ!', CHR$(207): (ü) 
DEF KEY 'fK', CHR$(221): (i) 
DEF KEY ‘f*1, CHR$(124); (1) 
DEF KEY 'fC!', CHR$(181); (ç) 


COURRIER DU COEUR 


Rappelons notre nouvelle adresse : 


PPC Paris Chapter 
B.P. 604 
75028 Paris Cedex 01 


PPC-Paris 

B.P. 604 

75028 Paris Cedex 01 

Vend : 

Interfaces vidéo HP82163B (32 colonnes) 


neuves (dans leur boîte, avec documentation) : 
600 F seulement. 


Lecteurs de cartes magnétiques HP82400A 
pour HP-71 neufs (dans leur boîte, avec 
documentation et 5 cartes magnétiques) : 500 
F seulement. 





Des lots de 100 cartes magnétiques pour 
HP-41, HP-67, HP-97 et même HP-65 : 100 F 
seulement. 


Pierre David 

33 Bd St Martin 
75003 Paris 

Tél : (1) 48 87 68 93 


Vend : 
Imprimante 80 colonnes HP82905B + papier : 
2500 F. 


Convertisseur HP82166A : 1000 F. 


Alain Goubault de Brugiere 
27 avenue de Brimont 
78400 Chatou 

Tél dom. : (1) 39 52 56 01 
Tél bur. : (1) 45 61 99 11 


Vend : 

HP-71B avec accessoires d’origine et manuels 
(01/86) + livret HP-71 utilities + livre Le 
HP-71, c'est facile + IDS Volume I : 3400 F. 


Lecteur de cartes pour HP-71 (05/86) + 
environ 100 cartes avec programmes (Basic ou 
Forth) et fichiers Lex + 5 étuis rigides + 
classeur 3 anneaux : 600 F. 


Module Translator Pac : 800 F. 


ou HP-71 + lecteur : 3700 F, ou HP-71 + 
module : 4000 F, ou l’ensemble : 4300 F. 


Prix négociables, profitez-en ! 


Bernard Garry 
9 rue Louis Georges 
92140 Clamart 
Tél : (1) 47 36 24 64 


Recherche : 
Modules XMemory pour HP-41. 


Paul Carles 

10, Cité Verte 
94370 Sucy en Brie 
Tél : (1) 45 90 11 17 
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Recherche un membre du Club pour l’aider, 
moyennant salaire, à utiliser au mieux de ses 
possibilités le livret d’applications de la 
HP-41C intitulé bibliothèque mathématiques. 


Recherche également un membre du Club 
pour l'aider à résoudre des exercices (niveau 
Terminale et Deug A) à l’aide de la machine. 





MODULE GRAPHIQUE 
POUR HP-71B 


La société BCMW commercialise un nouveau 
produit pour le HP-71B,. Il s’agit d’un logiciel 
écrit par Pierre David permettant de faire du 
graphique sur imprimante ThinkJet. 
Ce logiciel est entièrement écrit en 
assembleur, ce qui signifie : 


- une très grande rapidité, 
- une facilité d'utilisation sans égale : les 
mots-clefs sont appelables comme n’importe 


quelle fonction standard du HP-71B, 


- @t une très grande compacité du logiciel. 
Moins de 9 Ko ! 


Faire du graphique sur ThinkJet nécessitera 
sans doute de la mémoire additionnelle. A titre 
indicatif, 32 Ko suffisent pour un tiers de 
page. La seule limite est la taille mémoire 
disponible. 


Les mots-clefs de ce logiciel sont : 


BOX : trace un rectangle. 


CSIZE : spécifie la hauteur et la largeur des 
caractères. 


DRAW : trace un segment de droite entre la 
position courante et le point spécifié. 


FRAME : trace un cadre autour de la zone de 
tracé. 


GDUMP : imprime le graphique sur ThinkJet. 
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GEND : termine une session graphique. 


GINIT initialise une session graphique. 
Spécifie la dimension du tracé. 


IDRAVW : trace un vecteur. 

IMOVE : déplace le point courant. 

LABEL : trace des lettres dont la taille est 
spécifiée par CSIZE, la direction par LDIR et 
l'origine par LORG. 


LDIR : spécifie l’angle de tracé des lettres par 
rapport à l’horizontale. 


LINETYPE : sélectionne le type et la longueur 
des motifs tracés par DRAW ou IDRAW. 


LORG : spécifie la position des lettres par 
rapport au point courant. 


MOVE : déplace le point courant. 


PENDOVWN : baisse la plume, c’est à dire trace 
un point. 


PLOTTER IS 
graphique. 


sélectionne l'appareil 


TICLEN : définit la longueur des marques de 
graduation sur les axes. 


XAXIS et YAXIS tracent des axes 
horizontaux et verticaux, avec des marques de 
graduation optionnelles. 


Le logiciel est disponible sur cassette ou 
disquette au prix de 1950 F H.T. Il est fourni 
avec un manuel en français ou en anglais. 


Demandez-le à votre distributeur habituel, ou 
renseignez-vous directement à BCMVW. 


BCMW 

2 bis rue Nicolas Houël 
75005 Paris 

Tél : (1) 43 36 12 05 


Janick Taillandier (246) 


Post Scriptum : ce n’est pas parce que Pierre 
est Président du Club qu’il faut passer sous 
silence ses réalisations, surtout lorsqu'elles sont 
aussi remarquables ! 


HP28 
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EXEMPLE D'UTLISATION 
DE LA PILE OPERATIONNELLE 


Une des caractéristiques du HP-28C est sa pile 
opérationnelle. Cette pile, connue des 
calculateurs HP, ne comporte plus quatre 
niveaux mais autant que la mémoire le permet. 


Cette pile illimitée nécessite un système qui 
puisse la gérer. Celui-ci est du type Forth : en 
effet, le Forth possède des instructions 
adaptées à la gestion de la pile telles que tpuP], 
[OVER], [DROP] OU encore [SWAP] et autres [ROT].. 


Le programme que je vous propose, bien qu'il 
soit déjà intégré dans le HP-28C, montre une 
des manipulations possibles de la pile, qui sont 
l’unique base de ce programme. 


Il résoud les équations ax? + bx + c = 0. Il 
calcule le discriminant (défini par d = b?-4ac. 
Si cette quantité est positive ou nulle, :1l 
calcule les deux racines ou solutions -b+v4/2a. 
Si d est nul, il existe une seule racine -b/2a. 
Ce point est le sommet de la parabole dans ce 
cas uniquement. 


La première opération est d’entrer le 
programme dans le HP-28C. II est bien 
évident que ce programme est introduit à la 
file, sans les commentaires. Une fois rentré, 
vous appuyez SUr [ENTER]. 


Les instructions font 
suivants : 

- [OVER], [DUP] et [PICK] appartiennent au menu 
[STACK], 

- [START], [NEXTJ, CIF), [THEN] et 
appartiennent au menu [BRANCH], 

- [HALT], LABORT et [BEEP] appartiennent au menu 
[CTRLI, et 

- [ROLL], [SWAP] et [DROP] sont sur le clavier. 


partie des menus 


[NEXT] 


Le programme 


« Début du programme 
OVER copie niveau 3 en 1 
3 PICK copie niveau 3 en 1 
5 PICK copie niveau 5 en Î 
1 déplace 3 fois 
START . Le niveau 6 
6 ROLL . au niveau 1 
NEXT 
3 PICK * copie niveau 3 * niveau 1 


Le -4 * niveau 1 
SWAP échange niveau 1 et niveau 2 
SQ + x® + niveau 2 
DUP dupl'ique Le niveau 1 
2500 .05 signal sonore à 2500 Hz 
BEEP ... pendant .05 secondes 
IF 0 < si d<0 
THEN alors 
"S=ens vide! le programme s'arrête 
ABORT en affichant "S=ens vide! 
END 
HALT arrête Le HP-28C 
DUP dupl'ique Le niveau 1 
SORT racine carrée du niveau 1 
-1* -1 * niveau 1 
6 ROLL déplace niveau 6 au niveau 1 
. ... et niveau 2 - niveau 1 
2 / niveau 1 / 2 
ROT déplace Le niveau 3 au niveau 1 
/ niveau 2 / niveau 1 
2500 .05 signal sonore à 2500 Hz 
BEEP ... pendant .05 secondes 
HALT 
DROP efface Le niveau 1 
SORT 
ROT déplace Le niveau 3 au niveau 1 
. niveau 2 - niveau 1 
2 / niveau 1 / 2 
SWAP / niveau 1 / niveau 2 
2500 .05 signal sonore à 2500 Hz 
BEEP ... pendant .05 secondes 
» et fin du programme 
Utilisation 


L'utilisation est très simple. Le programme 
étant rentré dans la machine, stockez-le à 
l’aide de l'instruction 1ST0] : faire 'EUPO [STO]. 
Ainsi, votre programme est stocké, et vous 
pouvez le visualiser dans le menu [USER]. 


Pour l'utiliser, un exemple reste le meilleur 
moyen : 


Nous allons prendre 2x? - 4x - 6 = 0. Nous 
calculons le discriminant de tête : le résultat 
est 64. Nous en déduisons les racines : -1 et 3. 


Maintenant, nous allons utiliser le programme 
EUPO. 


L'entrée de a, b et c dans la pile se fait en 
tapant : 

2 [ENTER] 

4 [CHS] CENTER] 

6 [CHS] [ENTER] 

[USER] [EUPO] 





Le discriminant s’affiche : 64 au niveau 1. 
Dans le coin supérieur gauche s'inscrit le 
symbole octogonal d’attente. Pour continuer, 
vous appuyez Sur [CONTI]. La première racine 
s'affiche alors : -1. Vous appuyez sur la même 
touche, et la deuxième racine s'affiche : 3. 


Remarques 


1- Vous n'êtes pas obligé d'effacer la pile 
avant exécution. Le programme fonctionne 
tant que a, b et c sont placés dans les trois 
premiers niveaux. 


2- Il ne faut jamais effacer la pile lors de 
l'exécution du programme. Si vous l'avez 
effacée, alors vous appuierez sur [ON] et [1 en 
même temps. Vous relacherez [ON], puis t“1. 
Cette séquence de touche n’efface pas vos 
programmes, mais réinitialise le HP-28C. 


3- Les résultats se lisent sur le niveau 1. 


4- Cas particuliers : 
9x? - 6x +1 = 0 


Le discriminant est nul. Il existe une seule 
solution, soit 1/3, ou 0,3333... Sachant que le 
discriminant est nul et qu’il existe une seule 
racine, vous devrez traiter sur votre HP-28C 
les mêmes séquences de touches que si le 
discriminant était supérieur à 0. Ce cas est 
traité comme cas général et non comme cas 
particulier. 


5x2? +x -1 =0 


Le discriminant est égal à -19, il n’y a donc 
pas de racine. Le HP-28C s'arrête et affiche 
au niveau 1 : "S=ens vide", Votre calculateur est 
alors prêt pour un nouveau traitement. 


5- Notez que les beeps peuvent être changés 
ou supprimés. Le test peut être supprimé, en 
sachant que si le résultat est négatif, le 
HP-28C vous donnera des résultats incohérents 
ou un message d’erreur. 


Evolution de la pile 


Prenons le premier exemple (2x2-4x-6 = 0). 





Actions Pile opérationnelle 
niveaux : 1 2 3 4 5 6 7 

entrée a, bet c -6 -4 2 

OVER 6:56: 2 

3 PICK #16 -6 -4 2 

5 PICK 2 -4 -4 -6 -& 2 


1 3 START 6 ROLL NEXT -6 -& 2 2 -& -& 


3 PICK d à -6 -&4 2 2 -& -& 
* 15-4216 2: 256, -6 
multiplié par -4 S.:° 48 -4212:112:=4 4 
SWAP C':#6 48:15:02) :2 :-4 -4 
sa r 1648 2 2 -4 -&4 
+ 1 64 2 2 -4 -&4 
DUP 64 64 2 -4 -& 
test signe d 64 2 2-4 -&4 
DUP 1 64 64 2 2 -4 -& 
racine carrée r 8 64 2 2 -4&4 -&4 
multiplié par -1 a -8 64 2 2-4 -&4 
6 ROLL Ci: -4 864: 2:,2%4 
; 1e 2:-R-66%2 ; 2:56 
divisé par 2 n'sè 685222 -k 
ROT e 21-2:64 2 -& 

/ -1 64 2 -4 

DROP 64 2 -4 

racine carrée 2 8- 256 

ROT r  -4 8 2 

- »:o1272 

divisé par 2 c 6 2 

SWAP 1 2 6 

/ n 3 


Quelques mots 


Quand j'ai voulu faire ce programme, j'ai 
rapidement constaté que ce n’était pas facile. 
En effet, manipuler des nombres dans une pile 
nécessite un crayon et beaucoup de papier ! Il 
ne faut pas hésiter à dessiner le tableau 
ci-dessus pour trouver les erreurs et ne pas se 
perdre tout au long de la construction du 
programme. 


Pour faire un programme de ce type, il faut 
travailler avec méthode. Si on examine le 
discriminant d = b?-4dac et les racines -b+ 
väd/2a, on remarques que les trois nombres 
servent plusieurs fois. a et b interviennent 3 
fois dans les calculs, alors que c ne sert qu’une 
seule fois. On en déduit qu’il faut copier deux 
fois a et b, contrairement à c qui ne doit pas 
être copié. 
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On a alors déjà fait 50 % du travail en 
analysant le problème. 


Vous comprenez tout de suite l'utilité de over, 
3 pick et 5 pick du programme. La boucle sert à 
ramener , b et c dans les trois premiers 
niveaux pour qu'ils soient prêts pour le 
traitement. | 


Remarquez que la copie de a se fait dans le 
calcul du discriminant, 3 PICK après la boucle. 
Pourquoi ? Si vous faites la copie de a au 
début du programme, vous aurez deux 
instructions supplémentaires. Conclusion, vous 
perdez de la mémoire, Ô combien précieuse 
dans notre HP-28C. Vous me direz « pour 
deux instructions... », mais nous n’avons que 
1700 octets. 


Le programme duplique d juste avant le 
premier beep. Cette duplication est dûe 
exclusivement au test du signe de d. Lorsque 
le programme exécute un test, il efface le 
niveau 1 pour le tester. Le deuxième ouPp est 
dû au fait qu’il y a deux racines. Par 
conséquent, il faut deux discriminants. 


La multiplication par -1 peut paraître un peu 
bizarre. En fait, je fais un changement de 
signe, et normalement on devrait faire avec 
cchs]. Eh bien non ! Quand vous faites un 
programme, et que vous avez besoin de [CH], 
vous verrez que le calculateur vous affiche un 
- au lieu d’un changement de signe cs. Le 
HP-28C vous fera une soustraction, c’est 
logique. seulement vos résultats seront faux 


(*). 


Après la première racine, j’efface le niveau 1 
par DROP, car nous n’en avons plus besoin. 
Ainsi, la pile est prête pour la suite du 
traitement. 


Conclusion 


J'espère que ce programme vous aidera à 
apprécier la manipulation de la pile 
opérationnelle. Vous verrez que travailler avec 
la pile est amusant et que l'exécution d’un 
programme est assez rapide (ce programme est 
8 fois plus rapide qu’avec un HP-15C). 





Ce programme satisfera, peut être, les élèves 
de seconde et surement les élèves de première 
qui utilisent souvent cette méthode de 
résolution, tout comme moi. 


Je vous souhaite une bonne utilisation. 


David Dalila 


(*) : il suffit d'utiliser la fonction [NEG] du menu [REAL]. 
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UTILITAIRES 
POUR MATRICES 


Heureux Possesseur du module Advantage pour 
HP-41, je vous propose deux petits 
programmes venant compléter la panoplie des 
fonctions matricielles. 


MATRICE IDENTITE 
TRACE DE MATRICE 


Le premier programme remplit une matrice 
avec l'identité (IDN), ou calcule la trace d’une 
matrice carrée (TRC). 


La matrice identité est la matrice qui possède 
des 1 sur la diagonale et des 0 ailleurs. 


1 O0 
est la matrice identité d’ordre 2 
O0 1 


La trace d’une matrice carrée est la somme de 
ses éléments diagonaux. La trace de la matrice 
identité d’ordre n est donc ». 


Utilisation de IDN : 


Placer le nom de la matrice en alpha puis faire 
XEQ “IDN", 


Au bout de quelques secondes, le programme 
vous rend la main. 
Utilisation de TRC : 


Placer le nom de la matrice en alpha puis faire 
XEQ "TRC", 


Au bout de quelques secondes, la valeur de la 
trace est en X. 


Note : ces deux utilitaires travaillent sur des 
matrices carrées et l’erreur DIM ERROR est 
renvoyée dans le cas contraire. 


POINTEURS DE MATRICES 


Le deuxième programme permet de 
décomposer un pointeur (IJXY) ou de le 
composer (XY1IJ). 
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Utilisation de IJXY : 


Placer en X le pointeur (iii,jjj), puis faire XxEa 
“jyXY". L’utilitaire retourne le code ligne (ii) 
en Ÿ, le code colonne (;jj) en X. 


Utilisation de XYIJ : 


Placer en X le code colonne (jjj), en Y le 
code ligne (iii). Faire ensuite xEo"xyiJ", et X 
contient le pointeur (iii,jj}j). 


Voilà, j'espère que ces quelques petits 


utilitaires vous satisferont. 
Christophe Gottheimer (202) 
O1*LBL "IJXY" 


INT LASTX FRC E3 %* RTN 


O8*LBL "XYIJ" 
E3 / + END 


O1*LBL "IDN" 
XEQ 02 


03*LBL 00 
MRIJ IJXY X#Y? CLX X=Y? 1 MSR+ 
GTO 00 RTN 


FC?C 10 
14*LBL MTRC' 
XEQ 02 


16*LBL 01 


MR + I+ FC? 10 XEQ "J+"  FC?2C 10 GTO 01 RTN 


25*LBL 02 
DIM? XEQ "IJXY" X#Y? MDET CLST MSIJ END 


LS 
A 
1) À 








<J 










sil, )” 
Vas de trace 
mn 


ouue 
matrice? | 


FORTH 


X. Bille Catalogue des mots & utilitaires 12 
ASSEMBLEUR 

J. Baudier L’assembleur du HP-71 (1) 14 
M. Martinet Encore les mémoires de masse ! 15 
J. Taillandier Trouvez vos chaînes (acte II) 19 
BASIC 

A. Goubault To ken or not to ken 24 
F. Duret-Lamouroux Programme de débutant 25 
M. Martinet Le point sur les nuages 25 
A. Goubault Programme "LEXED" 29 
F. Duret-Lamouroux Programme "NAV" 30 
M. Martinet Programme "NUAGEPT" 30 
LE COIN DES LHEX 34 
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CATALOGUE DES MOTS 
ET UTILITAIRES 


Le but est de lister les mots du dictionnaire 
utilisateur, en dissociant les mots vocabulaires 
des autres. Quelques utilitaires facilitant 
l’accès à Basic ont été ajoutés. 


PRINCIPE DES VOCABULAIRES 


Dans le dictionnaire, créez un vocabulaire : 
VOCABULARY TOTO, puis un mot : HoP ;. Lorsque 
vous tapez TOTo, ce dernier devient vocabulaire 
de contexte, c’est à dire que seuls les mots 
appartenant à ce vocabulaire sont reconnus, 
ainsi que ceux définis avant Toro. Ici par 
exemple Hop ne sera pas reconnu. L’ apparition 
d'une erreur  redéfinit  FORTH comme 
vocabulaire de contexte et courant. 


Un vocabulaire est dit courant lorsque la 
compilation d’un mot l’ajoute à l’ensemble des 
mots du vocabulaire. Les vocabulaires de 
contexte et courant peuvent différer. Pour 
qu’un vocabulaire de contexte devienne 
courant, il faut entrer : TOTO DEFINITIONS. Le TOTo 
spécifie que le vocabulaire est devenu 
contexte. DEFINITIONS égale la valeur de CURRENT à 
à celle de conTExT à. Maintenant on peut créer 
le mot : HoP :. Hop est une version différente 
de la première car elle se trouve dans un autre 
vocabulaire. Pour d’autres informations, voyez 
le manuel au chapitre vocabulaire. 


ET NOUS, ET NOUS... 


Lister les mots ne peut se faire qu’en fonction 
du vocabulaire de contexte. L’algorithme de 
base est relativement simple. Chaque entrée au 
dictionnaire contient entre autres un NFA et 
un LFA . Le LFA (Link Field Address) est le 
lien qui relie ce mot à celui defini 
précédemment. Son contenu est l’adresse NFA 
du mot précédent. NFA (Name Field Address) 
est le nom du mot agrémenté de quelques 
petites choses. Le premier octet du NFA est 
assez spécial puisque seuls les 5 bits de poids 
faible contiennent la taille du nom (25 = 32 
lettres maximum). En ce qui concerne le reste 
du codage, voyez votre livre préféré. 


Quant au rangement en mémoire, on a pour 
un mot donné la séquence LFA / NFA / CFA 
/ PFA, donc pour un même mot LFA = NFA 
- 5. Bref, ce que nous désirons c’est décrypter 
le mot dont le NFA est connu, repérer le NFA 
précédent grâce au LFA présent et 
recommencer la boucle. 


AU COEUR DE L’ARBRE 


Le problème est de découvrir le NFA du 
dernier mot sous un vocabulaire donné 
(vocabulaire de contexte). Or le mot LATEST 
équivaut à CURRENT à à et ce n’est pas ce qu’on 
veut. TOTO OU FORTH sont à la fois des entrées au 
dictionnaire et des vocabulaires. FORTH, en 
particulier, a son LFA nul car il est le premier 
mot dans la chaîne. Lorsqu'on précise FORTH 
DEFINITIONS, On remarque que 9  quartets 
séparent le CFA de ForTH de la valeur CONTEXT à. 


Un codage typique d’un mot vocabulaire est le 
suivant : 


LFA, NFA, CFA = E7160, PFA = 81/A0/ ct 


ct est le NFA du dernier mot entré dans ce 
vocabulaire. À cet endroit pointe la variable 
CONTEXT, et à fortiori la variable CURRENT si 
le vocabulaire est courant. 


LES UTILITAIRES 


De façon empirique, il a été possible de 
calculer le nombre de quartets disponibles 
dans le dictionnaire, c’est parfois utile. 


Une fonction «simple» qui remplace le trop 
long " EDTEXT XXX,T" BASICX où XXX,T est un 
paramètre possible et enfin, une fonction qui 
permet de remplacer " " Basicx. Ces mots ($ et 
%) se servent de l'interprèteur, TIB, WORD, et 
autres. S'ils n’avaient pas «tourné» du premier 
coup, je n’aurais jamais tenté de les mettre au 
point. En effet, mes connaissances en ce 
domaine sont minces. Mais ne désespérons pas, 
peut-être que quelqu'un saura donner 
l'explication à ce mystère. 





MODE D'EMPLOI 


CATALOG ( -- ) 

Liste les mots du dictionnaire en commençant 
par les derniers définis. CATALOG ne liste pas 
au-delà du mot vocabulaire auquel appartient 
le reste. Autrement dit, CATALOG liste le 
vocabulaire de contexte, sans prendre en 
compte ce qui précede le mot vocabulaire. 


Les touches flêches (1°1, 1v1) permettent de se 
déplacer dans la chaine. [ON] stoppe le 
processus. Codification : 


W. : signifie simple mot. 

* : mot protégé par FENCE. 

voc.: si le mot représente un vocabulaire. 
ct. : si vocabulaire de contexte. 

Cu. : si vocabulaire courant. 


MEM ( --n) 
Renvoie n, le nombre de quartets disponibles 
dans le dictionnaire. 


Xavier Bille (203) 


HEX 
( décrypte un mot sachant son NFA ) 


: PR-WORD (€ NFA -- ) 
DUP COUNT 1F AND TYPE SPACE 
DUP 5- FENCE Q < 
( mot protégé ? ) 
IF ." * 1! ELSE 2 SPACES THEN 
1 TRAVERSE 2+ DUP à E7160 = 
( est-ce un vocabulaire, 
IF 
s«":vocsz M 9 + DUP 
CONTEXT à = IF ." ct. " ELSE 4 SPACES THEN 
CURRENT @ = 1F ." cu. " ELSE 3 SPACES THEN 
ELSE 
DROP ." y." 
THEN ;: 


contexte, courant ? ) 


: CATALOG € -- ) 

( pas d'interruption, sauvegarde de La pile ) 
F 2F441 N! 
SO >R SPa SPO ! 
CONTEXT à 4 
( on remonte La chaîne à partir du dernier NFA ) 
BEGIN 

DUP PR-WORD KEY 

CASE 

E OF SPI R> SPO 1! O 2F441 1! -1 
ENDOF CR ( [CON] ) 


12 OF CONTEXT @ OVER < 
IF DUP 5- à THEN 0 
ENDOF ( [°] ) 
13 OF DEPTH 1 > 
IF DROP THEN 0 
ENDOF O0 SWAP € [v1 ) 
ENDCASE ( autre touche, on ne fait rien ) 
UNTIL ; 


( renvoie Le nombre de quartets libres ) 


: MM C--n) 
SPa 1C1 - HERE - : 


DECIMAL 


( Syntaxe : 

( 4 ‘ligne Basic! 

( par exemple : 

( _% BEEP 200,.5 <=> " BEEP 200,.5" BASICX 

( $ filename,commande 

( $ TOTO,12,T <=> "! EDTEXT TOTO,'12,7T'" BASICX 
( % et $ se servent de l'interprèteur 


dl OS St St Sol St 


: % 13 WORD COUNT BASICX ; 


: $ 32 WORD COUNT ! EDTEXT"! 2SWAP S>& BASICX ; 


Gt ce. Fins 
c'est Catalojue 
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L'ASSEMBLEUR DU HP-71 


Comme promis, voici donc un article 
d'initiation à l’assembleur. Il est destiné à ceux 
d’entre nous qui voudraient bien utiliser ce 
langage, mais qui ne le font pas encore. 


Tous les membres de PPC, en tout cas ceux 
qui possèdent un HP-71 connaisent la 
puissance de cette machine. Excellent Basic, 
très bon module mathématique, et surtout 
confort d'utilisation inégalé. Mais ceux qui 
pratiquent l’assembleur, même un peu, vous 
diront que ce langage apporte encore bien plus 
de choses qu’on ne peut imaginer. 


Mais au fait ? Qu'est-ce que l’assembleur ? 


Le langage assembleur est la représentation du 
langage machine qui est le seul compréhensible 
par le microprocesseur. Le seul problème est 
que la machine ne comprend que des zéros ou 
des uns, et qu’une instuction est une suite de 
ces deux symboles binaires. Pour l’homme, le 
langage binaire n’est pas très parlant. Alors, 
on préfère utiliser le langage asssembleur. 
Chaque instruction en langage binaire 
correspond à un mot, dit mnémonique, qui est 
le nom de l'instruction ou une suite de 
caractères permettant d'identifier l'instruction. 
Par exemple, le mnémonique de l'instruction 
qui permet d'ajouter 1 au registre C est 
C=C+1 . 


Le programme que l’on écrit est donc une 
suite d’intructions placée dans un fichier texte. 
Le fichier obtenu après écriture du 
programme (on l’appelle fichier source) doit 
être traduit pour être compris par le 
microprocesseur. Cette traduction est réalisée 
par un programme dit programme 
d'assemblage ou assembleur, qu’il ne faut pas 
confondre avec le nom du langage. Un tel 
programme est indispensable pour faire de 
l’assembleur, à moins de faire l’assemblage à la 
main (bon courage !). 


Sur HP-71, il faut utiliser le programme 
contenu dans le module Forth / Assembleur. 


Maintenant, je vais tenter d’expliquer ce qui 
fait pour moi l'intérêt et la puissance de 
l’assembleur du HP-71. Tout d’abord, il faut 
dire que cet assembleur est très particulier, 
comme tout ce que fait Hewlett-Packard en 
général. Le processeur du HP-71 a été 
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d’ailleurs développé spécialement. Il a été 
conçu pour effectuer des calculs 
mathématiques. 


Ensuite, je dirai que la mémoire morte de 
base du HP-7] apporte énormément à la 
puissance de l’assembleur. Les programmes 
que l’on écrit peuvent appeler des routines de 
cette Rom système. Hewlett-Packard a 
vraiment réalisé un chef-d'oeuvre en écrivant 
cette Rom. Les routines qui la composent sont 
puissantes et pourtant souples et simples à 
employer. 


Enfin, il faut signaler qu’une bonne part de la 
puissance de l’assembleur est dûe au fait qu’on 
peut se procurer chez Hewlett-Packard toute 
la documentation possible et souhaible à 
propos du HP-7], C’est avec cette 
documentation, plus connue sous le nom 
d’Z.D.S. (pour /nternal Design Specification), 
que l’on peut réellement tirer parti de la 
puissance de notre brave machine. 


En fait, il existe une autre raison à la 
puissance de cet assembleur. Je parle de vous, 
les membres de PPC. En effet ce sont les 
routines écrites en assembleur par les membres 
de PPC qui feront la richesse et la puisance de 


ce langage. C’est donc à vous de jouer 
maintenant. 
Mais au fait ? Pourquoi faire de 


l’assembleur ? 


Eh oui, c’est vrai ça ! On pourrait très bien ce 
contenter de la puissance du Basic. 
Généralement,  l’assembleur a plusieurs 
avantages sur les langages évolués : rapidité et 
possibilité d’avoir le contrôle total de la 
machine. En fait le HP-71 est conçu de telle 
manière qu’on puisse écrire en assembleur de 
nouvelles fonctions et de nouveaux ordres 
pour enrichir le vocabulaire du Basic et du 
Forth. 


Voilà pour aujourd’hui. J'espère être parvenu 
à vous inciter à tenter la grande aventure de 
l’assembleur, sans pour autant décevoir ceux 
qui s’attendaient à ce que je rentre plus en 
détail dans ce langage. Mais ceci sera l’objet 
d’un prochain article dans les colonnes de 
votre Journal préféré. 


Je vous dis donc à bientôt et j'attends vos avis 
sur mon article car, sans eux, je croirai que je 
n’intéresse personne avec ma prose. N'hésitez 
pas à me critiquer ou à donner votre avis sur 
la question. Ecrivez ou appelez-moi, ou bien 
écrivez au Club. N'oubliez pas que je compte 
sur vous... 


Jacques Baudier (192) 


Jacques Baudier 

4, impasse Daniel René 

78800 Houilles 

Tél : (1) 39 68 33 93 (Week End) 





ENCORE 
LES MEMOIRES DE MASSE 


Voici quelques nouveautés dans le domaine du 
Lex pour HP-71. Oh ! Cela n’est pas grand 
chose devant les monstres de si grande qualité 
que sont FINPUT ou VECTLEX (et bien 
d’autres), mais je pense très humblement que 
cela pourra rendre quelques bons services à 
tous les bricoleurs de mémoire de masse de 
notre cher Club d’utilisateurs. 


Le fichier Lex RWLEX contient la fonction 
RREC$S et l’ordre wREC permettant respectivement 
de lire et d’écrire sur les mémoires de masse. 


RRECS 


Syntaxe : 
RREC$ ( <No enreg.>, <Spécif.d'appareil> ) 


Cette fonction permet la lecture directe d’un 
enregistrement sur une mémoire de masse. Les 
enregistrements sont de longueur fixe (256 
octets). 


Exemple : 


10 DIM A$[(256] 
20 AS=RREC$(14,":TAPE(2)") 





En ligne 10, on dimensionne la variable AS à 
256 octets. C’est le minimum pour la valeur 
renvoyée par RREC$ (256 octets). 


En ligne 20, on charge l’enregistrement 14 de 
la deuxième mémoire de masse de la boucle 
HP-IL dans AS. 


Le premier paramètre de la fonction est le 
numéro de l'enregistrement. Ce paramètre 
peut-être numérique (décimal) ou 
alphanumérique (hexadécimal). Dans les deux 
cas, si l’adresse n’est pas une adresse valide, 
l'erreur Invalid Arg est retournée. Si l’adresse 
est valide mais qu’elle est trop grande par 
rapport au nombre d’enregistrements du 
support, l’erreur Size of File est renvoyée. 


Les enregistrements sont numérotés de 0 à N. 
Pour les cassettes : O0 à 511 ("0" à "1FF") 

Pour les disquettes double face : O0 à 2463 ("0" 
à “99F") 

Pour les disquettes simple face : 
à "41F") 


0 à 1055 ("0" 


WREC 


Syntaxe : 
WREC <ASCII>, <No.enr.>, <Spéc. appareil> 


Cet ordre permet l'écriture directe d’un 
enregistrement sur une mémoire de masse. La 
chaîne ASCII (premier paramètre) doit 
impérativement être de longueur égale à 256 
octets. 


Exemple : 
WREC RPT$(CHR$(255),256),2, :1 


On écrit des caractères de code décimal 255 
(#FF en hexadécimal) dans l'enregistrement 
numéro 2 de la mémoire de masse. Cela 
permet de ré-initialiser très rapidement un 
support. 


Le premier paramètre est la valeur à écrire 
dans  l’enregistrement. Cette valeur doit 
impérativement être de longueur égale à 256 
octets. 


Les deuxième et troisième paramètres sont 


respectivement les mêmes que les deux 
paramètres de la fonction RRECS$. 
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Voilà, ce n’est pas grand chose mais j'espère 
que ce Lex vous rendra beaucoup de petits 
services. 


Heureuse Programmation 


LEX 

CON(2) 
CON(2) 
CON(2) 
CON(5) 


Michel Martinet (12) 


TRULEX! 


#E1 
94 
95 
0 


NIBHEX F 


REL(4) 1+(TXTBST) 


CON(4) 
CON(5) 


0 
0 


KKKRKRRERRRRRRRRRRRRRRARRRRRRRRRRRRARRRRRRRRRRRRÉÉ 


* RREC$(<num.enr.>,<spec. appareil>) 
KRRRRRRRRRERRRRERERRRRRRRRRRRRÉRRRRRRÉRARRRRRRRRÉRAR 


CON(3) (TXT001)-(TXTBST) 


REL(5) 
CON(1) 


RREC 
15 


RRECS$ 


KRKRRRRRRRRRRRRRRRRRRRRRRRRRRARRRRREARRRRR RAR RAR RÉ 


* WREC <chaïîne>,<num.enr.>,<spec. appareil> 
KKKRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRERRRRRRÉÉ 


TXTBST 
TXT001 


TXT002 


TXTBEN 
ADDRCK 
ARGERR 
ATNFLG 
Attn 
BSERR 
CHKMAS 
COLLAP 
COMCK+ 
CONVUC 
CSRWS 
D=AVMS 
DEVPAR 
DRANGE 


CON(3) 
REL(5) 
CON(1) 


CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
NIBHEX 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


DVCSPp EQU 


EXPEX- 
EXPEXC 
EXPPAR 
EXPR 


EQU 
EQU 
EQU 
EQU 


(TXT002)-(TXTBST) 


WREC 
13 


9 
lRRECS" 
94 

7 
'WREC' 
95 

1FF 
#1C5A5 
#0BF19 
#2F442 
12 
#0939A 
#425C 
#091FB 
#032AE 
#152AA 
#OED2C 
#1A460 
#1BF0 
#1B076 
#7925 
#0F178 
#0F186 
#03FD9 
#0F23C 
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WREC 


token 94 


token 95 





EXPRDC 
FIXDC 
GETERR 
GETMBX 
GETPIL 
GNXTCR 
HEXASC 
1/OFND 
ID 
IVEXPe 
LEXPIL 
MEMERR 
MINTK 
MTHSTK 
NXTSTM 
OUTBY+ 
PACKd 
POP1S 
R3=D10 
R<RSTK 
RANGE 
READR# 
REVS 
REVPOP 
RNDAHX 
RSTK<R 
SNAPBF 
STRGCK 
STRNGP 
SYNTXe 
WRITE# 
bLEX 
eABORT 
eNODEF 
ePIL 
eTAPE 
eXWORD 
reclen 
SSTK 


KRRERRRRRRRRRRRRRRRERRRRRRRRRRRRRRRRRRRRERARRÉERÉÉRÉ 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


*WREC 


RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARRRRRRRRRRRNAË 


#05922 
#05493 
#6791 
#3B62 
#6E0B 
#03064 
#17148 
#118BA 
#E1 
#02E35 
#FF 
#0944D 
94 
#2F599 
#08A48 
#O2CE5 
#7B4A 
#0BD38 
#03526 
#014DD 
#1B07C 
#44FF 
#1B38E 
#0BD31 
#136CB 
#014A8 
#2F7F0 
#036BA 
#03790 
#02E2B 
#453F 
#BFC 

4 

3 

2 

1 

#23 
512 

7 


* Routine d'analyse (parse) de l'ordre WREC 
WRECp GOSBVL STRGCK 


GOSBVL 
GONC 
GOSBVL 
GOSBVL 
GOSBVL 
æ 

?2ST=1 
GOYES 
GOSBVL 
GONC 
GOSUB 
CON(5) 


* 


RTNCC 


COMCK+ 
syntxe 
GNXTCR 
R3=D10 
EXPPAR 


0 

ivexpe 
COMCK+ 
syntxe 
JUMPER 
DVCSPp 


er paramètre : alpha 


2ème paramètre: alpha 
ou numérique. 


3ème paramètre: spécifi- 
cateur d'appareil HPIL. 


ivexpe ST=1 
GOVLNG 
syntxe GOVLNG 


4 


IVEXPe 
SYNTXe 


* Routine de décompilation de l'ordre WREC 


WRECd GOSBVL 
LCASC 
GOSBVL 
GOSBVL 
LCASC 
GOSBVL 
GOSUB 
CON(5) 
RTN 


ERReur GOTO 


REL(5) 

REL(5) 
WREC  GOSBVL 
DO=D0+ 
GOSBVL 
DO=D0+ 
CD1EX 
RSTK=C 
ST=0 
GOSUB 
CON(5) 


* 


* 


GOC 
C=RSTK 
D1=C 
GOSUB 


CON(5) 
* 


C=D 
RSTK=C 
x 


A=DAT! 
* 
LC(2) 
?AHC 
GOYES 
GOSBVL 
* 
C=B 
GOC 


EXPRDC 
U,, 
OUTBY+ 
EXPRDC 
S "8 
’ 
OUTBY+ 
JUMPER 
PACKd 


erreur 


WRECd 
WRECp 


EXPEX- 
2 
EXPEXC 
2 


SSTK 
JUMPER 
GETPIL 


ERReur 


JUMPER 
GETMBX 


VERT10 


15 

B 
rndahx 
ADDRCK 


A 
EXECO0 


ler paramètre 


2ème paramètre 


3ème paramètre: HPIL 


) Dépose Les 2 premiers 
) paramètres 

) de l'ordre 

) WREC sur La M.S. 


RSTK = Math Stack 


Cette routine permet 
d'évaluer le spécificateur 
d'appareil. 


D1 = Math Stack 


Routine de recherche de 
l'adresse de La MAILBOX de 
La boucle décrite dans Le 
spécificateur d'appareil. 
Au retour: DO * M.B. 
Vérification de La présence 
de La mémoire de masse sur 
la boucle. 

) Mise en place de D1 sur 

) Le deuxième paramètre de 
) l'ordre WREC 

Sauvegarde de l'adresse de 
la mémoire de masse dans 

la pile de retour 

) l'adresse d'écriture est- 
) elle en HEXA ? 

) 

) 

Non => RNDAHX 

Vérification de La validité 
de l'adresse (2e param.) 


rndahx 


EXECOO 


ivarg 


GOSBVL RNDAHX 
GONC  ivarg 
D1=D1+ 16 

C=A À 


RSTK=C 
# 


GOSBVL REVPOP 
* 

C=0 A 
LC(3) reclen 
2A#C A 
GOYES 
C=RSTK 
A=C A 
C=RSTK 


* 


D=C A 
“ 


ivarg 


GOSUB  JUMPER 
CON(5) WRITE# 
* 

GOC erreur 
# 

* 


* 


GOSBVL COLLAP 
GOVLNG NXTSTM 
GOVLNG ARGERR 


) adresse dans La pile de 
) retour 

Renversement de La chaîne 
sur la Mathstack. 

) La longueur de La chaîne 
) est-elle de 256 octets ? 


Si non => ERREUR 

) Restitution de l'adresse 
) de l'enregist. dans A(A) 
) Mise en place de 

) l'adresse de La mémoire 
) de masse dans D(X). 


RRRRRRRRRRRRRRRRRRRÉ 


*ECRITURE* 
KRRRRRRRRRRRRRRERÈR 
Au retour de La 
routine, si Cy=1, 
nous sommes en présence 
d'une erreur. 
Remise en place de MTHSTK 
BASIC continu 


RRRRRRRRRRRRRRRRRRRRR RER ARR RER R Rd he 


* La routine VERTAP verifie si Le paramètre 
* pointé par D1 correspond bien à une mémoire 


* de masse d'identificateur appareil 16. 
RRRRRRRRRRRRRÉRRERRRRRRRRRERERERRRRARÉRÉRÉRÉRÉÉRARÉ 


Dvnfnd P= 


VERTAP 


VERT10 


ePIL 
C=0 A 
GOC erreur 


GOSUB  JUMPER 
CON(5) DEVPAR 


* 
* 
* 


* 


GOC erreur 
2D=0 X 

* 

GOYES Dvnfnd 
* 

* 

CD1EX 

* 

RO=C 

GOSUB  JUMPER 
CON(5) CHKMAS 
RTNNC 





Classe d'erreur 32 à 47 
Erreur 32. 
BEST. 


Routine d'analyse du 
spécificateur d' appareil 
de La fonction. En sortie 
D1 ” Math Stack - 16 pour 
un paramètre numérique. 

Si carry: ERREUR 

DIX] contient l'adresse du 
périphérique. Si DIX] = 0, 
Le périphérique n'est pas 
présent. On renvoie 
“Device Not Found! 

) Sauvegarde de D1 dans RO 
) pour le retour 

) à BASIC (fin). 
Vérification de Ll'AID du 
périphérique (16). 

Cy=0 : OK, Cy=1 : ERREUR 
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KARKRRRRERRRRRRRRRRRRRRRARRRRRRRARRERRRRRRRRRRRRRRRREÉ 


* Traitement des erreurs HPIL. P indique la 





LC(3) (reclen)+16 ( 210H = 528D 
= (Soit La longueur de 


* classe d'erreur (mémoire de masse... etc.) et 
* C[(01 Le numéro de l'erreur. Le retour à La 


* main loop se fait via BSERR. 
KRKRKRRRRRRRRRRRRERRRRRRRERRRRRRRRRRRRRRRRRRRRRRRIUÉ 


erreur ?P= eTAPE 
GOYES ERROR1 
?P= ePIL 
GOYES  ERROR1 
?2P# eABORT 
GOYES  ERRORO 
GOSUB  JUMPER 
CON(5) GETMBX 
GOSUB atnchk 
GOC ERRORO 
GOSUB  JUMPER 
CON(5) GETERR 
GONC ERROR - 
?2P# eABORT 
GOYES ERROR1 
ERROR- P= eABORT 
ERRORO C=P 0 
P= eNODEF 
ERROR1 C=P 1 
P= 2 
LCHEX FF 
A=C A 
P= 0 
bserr  GOVLNG BSERR Envoyez l'erreur ! 
Erreur GOC erreur  Ralonge 


KRRRRRRRRRRERERRRRRRRRARARRRRRERERRRERRARRRRRERRRRR 


*RRECS 


KRRHRRRRRRRRRRRRRRRRRRRRRERARERERERRRRRRRERERRRÉRUR 


* 


* 


( l'enregistrement plus 
( 16 quartets d'en-tête) 


A=A-C A ALA] = MS-528 

GOSBVL D=AVMS 

C=A A CCA] = AVMEMS 

?2C<D A Y a-t-il assez de mem. ? 
GOYES memerr Non: Erreur 

R1=C Sauvegarde de MS-528 

D1=C D1 = Math Stack - 512 

D1=D1+ 16 

A=B A ALA] = # enreg. à lire 

C=RSTK ) Restitution de 

D=C s ) dev. add. dans DIX] 

* 

GOSUB JUMPER RRRRRRRRRRRRRRREÉ 
CON(5) READR# *LECTURE®* 

* KRRRRRRRRRRRRRRRÉ 

GOC Erreur 

A=R1 AIA] = MS-528 

D1=A 

C= n ) construction e l'en-tête 
# ) de La chaîne avant le 
# ) retour à BASIC 

LCHEX  2000F ) C(W)= 000000000002000F 
DATI=C W 0.K. 

AD1EX 

R1=A 

P= 4 ) Restitution de 5 niveaux 
GOSBVL RSTK<R  ) de pile 

C=RSTK ) puis de 

DO=C ) DO (4 niveaux & PC) 
C=R1 Restitution pointeur 
D1=C D1 = MS+528 

GOSBVL REVS$ On retourne l'ordre des 
® caractères sur la M.Stack. 
GOVLNG EXPR Retour à BASIC. 

Ivarg GOTO  ivarg 
memerr GOVLNG MEMERR 


KRRKRRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRMAR 


* ROUTINE R<RSTK 


* Cette routine sauvegarde 5 niveaux de pile 
KRRRRRRERRRRRRRRRRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRMÉ 


r<rstk P= 


GOVLNG 


* 
* 


* 


4 
R<RSTK 


INDISPENSABLE 
Pour l'exécution d'une 
fonction faisant appel à 
des routines HPIL. 
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NIBHEX CC22 Alpha ou un numérique pour 
% Les deux paramètres. 
RREC  CDOEX ) Sauvegarde de DO dans 
RSTK=C ) La pile de retour 
GOSUB r<rstk Sauvegarde de 5 niveaux 
GOSUB VERTAP Vérification mém. de masse 
A=RO RO = MS-16 
D1=A 
D1=D1+ 16 D1 = M.S. 
C=D A ) DIX] = device address 
RSTK=C ) RSTK = DIX] 
A=DATI B L'adresse est-elle 
LC(2) 15 donnée sous forme de 
2A#C B chaîne ? 
GOYES rndah2 Non => RNDAHX 
GOSBVL ADDRCK Vérification validité 
GOC EXEC10 
rndah2 GOSBVL RNDAHX 
GONC  Ivarg 
D1=D1+ 16 
B=A A 
EXEC10 AD1EX 
C=0 L\ 


RRRRRRR RER RM Re he he he de he ee ee ee ee ee ee ee rer ee ee eee ee ee ee de de 


* ROUTINE ATNCHK 

* Cette routine a été pompée dans les IDS V, elle 
* n'est pas supportée. Elle permet La sortie 

* de l'erreur Aborted lorsque l'on arrête l'exécu- 
* tion des routines HPIL en appuyant deux fois sur 
* 


la touche ATITN. 
RARRRRRRRRRRRRRRRRRRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRE 





atnchk ?ST=0 Attn 
GOYES  ATNCHc 
RSTK=C 
CDOEX 
DO=(5) ATNFLG 
C=DATO S 
DO=C 
C=RSTK 
2C=0 S 
GOYES  ATNCHc 
C=C+1 S 
GOC ATNCHC 
P= eABORT 
RTNSC 

ATNCHc RTNCC 


KRRRRRRRRRRRRRRRRRRRRRRRERRERRRARRRRRRRRRRÉR RÉ ÉÉÉÉ 


* Routine Jumper: 
* Cette routine permet l'accès aux différents 
* points d'entrées du module HPIL 


JUMP 20 


JUMP90 


JUMP30 


CSR A 

CSR 5 
C=C-A B 

GONC  JUMP30 
D1=D1+ 11 
GONC  JUMP10 
LC(4)  eXWORD 
GOTO bserr 
D1=D1+ 6 
C=DATI A 

B=C ä 
C=RSTK 

D1=C 

D1=D1+ 5 
CD1EX 

RSTK=C 

C=DATI A 
C=C+B A 
RSTK=C 


KKKKKKRRERERRRERRRRRERERRRRRRRRRRRRRRRRARRRRRRRRRARRRRNË 


JUMPER 


JUMPO5 


JUMP10 


RSTK=C 

CD1EX 

D1=(5) SNAPBF 
DATI=C A 
D1=(2) (SNAPBF)+5 
C=RSTK 

DATI=C W 
D1=(4) (SNAPBF)+21 
DATI=A W 
D1=(2) (SNAPBF)+37 
C=B A 

CPEX 5 

P= 6 

C=0 P 

GONC  JUMPO5 
C=C-1 P 

- 7 

C=0 P 
C=C-1 P 
DATI=C 8 
SETHEX 

P= 0 
LC(3) bLEX 
GOSBVL I/OFND 
GONC  JUMP90 
LC(2) LEXPIL 
B=C À 

A=0 A 
A=A+1 A 
C=DATI 6 

2C=0 B 
GOYES  JUMP90 
?2B#C B 
GOYES  JUMP20 
CSR W 

CSR A 

2A<C B 
GOYES  JUMP20 


D1=(5) (SNAPBF)+21 
A=DAT1 4 
D1=D1+ 16 
C=DATI 8 
B=C ä 
P= 7 
C=C+1 P 
GOC JUMP50 
SETDEC 
JUMP50 P= 6 
?2C#0 P 
GOYES  JUMP60 
JUMP60 P=C 5 
D1=(4) C(SNAPBF)+5 
C=DATI W 
D1=(2) SNAPBF 
RSTK=C 
C=DATI A 
D1=C 
C=RSTK 
RTN 
END 


TROUVEZ VOS CHAINES 
(ACTE Il) 


Si vous utilisez le Basic du HP-71B, vous avez 
certainement pesté plus d’une fois contre cette 
maudite ligne que vous n'arrivez plus à 
retrouver dans ce gigantesque programme sur 
lequel vous travaillez depuis fort longtemps... 
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En effet, vous ne pouvez vous déplacer dans 
un programme Basic que par les touches de 
curseur et par la commande FETCH qui 
positionne sur un numéro de ligne donné. 


Vous vous êtes sûrement dit plus d’une fois 
qu'il serait bien que FETCH, suivi d’un argument 
alphanumérique, cherche une chaîne plutôt 
qu'un label. Le HP-75 ne dispose pas des 
labels, donc sa commande FETCH cherche une 
chaîne alphanumérique dans un programme. 


Dans JPC 31 (février 1986), Jean-Jacques 
Moreau avait publié le source de son ordre 
FIND, destiné à combler cette lacune. 


Malheureusement, cet ordre souffrait de 
quelques défauts, ce qui m'a amené à 
reprendre ce Lex, à le modifier et vous le 
présenter. Mais je pense qu’il n’est pas inutile 
de rappeler l’utilisation de cet ordre. 


UTILISATION DE FIND 


La syntaxe est très simple : 
FIND chaîne alphanumérique 


Par exemple : FIND "GoTo 10" cherche la chaîne 
de caractères "GoTro 10" dans le programme 
Basic courant. 


Le domaine de recherche commence à la ligne 
suivant la ligne courante pour se terminer à la 
dernière ligne. 


Par exemple, si votre programme est : 


10 BEEP 

20 DISP "A" 

30 1F A>10 THEN DIM A$[20] 
40 DISP "B'" 

50 GOTO 10 


Faites FETCH 20 pour vous positionner à la ligne 
20. Faites ensuite FIND "Disp. Le HP-71 vous 
affiche la ligne 40. Le domaine de recherche 
était situé entre les lignes 30 et 50. 


Si vous refaites FIND "pisp", le HP-71 vous 
répondra cette fois : 
ERR: Not Found 


Notez que la recherche ne prend pas en 
compte les numéros de ligne. FIND "20 DISP" ne 
trouvera aucune occurence de la chaîne. 


LES DIFFERENCES AVEC 
L’ANCIENNE VERSION 


Comme je l'ai dit plus haut, la version 
originale de Jean-Jacques souffrait de 
quelques défauts de jeunesse. Voici les 


principales modifications : 


- FIND s’arrêtait parfois sur des lignes où il n’y 
avait pourtant aucune occurrence de la chaîne 
recherchée. Par exemple, essayez le 
programme suivant : 

1000 ! Test FIND 

1010 IF ("A">F$ OR F$>"Z") AND A THEN 1020 

1020 F1$="0" 

Le programme doit être entré exactement 
comme 1il est listé, en respectant les numéros 
de lignes. Exécutez ensuite FIND "F$" deux fois 
à partir du début du fichier. S'il est normal de 
s'arrêter sur la ligne 1010, ça l’est beaucoup 
moins sur la ligne 1020. Ceci résultait d’un 
mauvais calcul de la longueur de la chaîne à 
analyser. 


- Le Lex d’origine prévoyait d'afficher le 
messsage "Not Found!" en cas d’échec de la 
recherche. Madheureusement, sa longueur n’est 
pas un multiple de 16 quartets, ce qui est 
obligatoire pour le premier message d’un Lex. 
Ceci fait que ce message ne pouvait être 
affiché. 


- Enfin, lorsque la chaîne cherchée était 
trouvée, le curseur restait positionné en début 
de ligne ; il aurait été préférable de le voir sur 
le début de la chaîne trouvée. 


Mon intervention s’est limitée à réaliser ces 
modifications en touchant très peu à la 
structure générale du programme. La seule 
ombre au tableau est qu’il n’est pas possible 
d’avoir un message d'erreur clair respectant la 
règle du premier message rappelée plus haut. 
J'ai décidé d'utiliser le message numéro 232 
du HP-71 (" Not Found"). Certes, le caractère 
espace en début de message n’est pas très 
idéal, mais le résultat est clair. Dans JPCLEX, 
le même problème ne se pose pas et on utilise 
le message numéro 225002 “Not Found, 


Pour ce qui est du reste, je vous invite à 
comparer les deux versions. 


Voilà, je pense vous avoir tout dit. 
Amusez-vous bien, et trouvez vos chaînes. 


Janick Taillandier (246) 


LEX 


FINDLEX! 


KRRRRRRERERRRRERRRRRRRRRRRRRR ER RRRRRRRRR RÉ RER RER RÉ 


* FIND <chaine-alphanumer ique> 

* permet de trouver, dans un fichier Basic la 
* premiere occurence de La chaine specifiee 

* apres La ligne courante. 

* Historique: 
* 01/86 J.J. Moreau 
conception et premiere version 


# #Ù #4 # *# *# * 


Rhode de dede de dede de de de ee de ve he he ve de ee he fe fe ee ee eee ee ee er er ee er fe oh oh he 


=AVE=D1 
=BF2DSP 
=BLDDSP 
=BSERR 

=CK'ON'! 
=CSLWS 

=CSRW5 

=CURRL 

=CURSRT 
=DSPCNO 
=EXPEXC 
=FINDL 

=GETPRO 
=GETSTC 
=LDCM10 
=LDCOMP 
=LDCSPC 
=MAIN30 
=MFERR 

=NULLP 

=NXTLIN 
=NXTSTM 
=OUTBS 

=REVPOP 
=S-R1-2 
=S-R1-3 
=STRNGP 
=eFTYPE 
=eNFOUN 


Strngp GOVLNG =STRNGP 


12/86 J. Taillandier 


- debogage 


- Suppression du message d'erreur dans 


cette version “autonome!! 
- positionement du curseur sur la 
chaine trouvee 


ID 
MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ENDTXT 


REL(5) Strngp 


* 


#E1 


Find 
#7 


"FIND! 


75 
#18BB8 
#01C0E 
#01898 
#0939A 
#076AD 
#O0ED3D 
#OED2C 
#2F7E8 
#096C1 
#09716 
#0F186 
#OFFE4 
#O6BEE 
#07726 
#04F6F 
#04F69 
#2F6C1 
#0037E 
#09393 
#07999 
#10031 
#08A48 
#2F58F 
#0BD31 
#2F88B 
#2F890 
#03790 
#0003F 
232 


pas de decompile, FIND 
est non programmable 


Find 


Mferr 


Find20 


NStrng 


Find30 


Find15 


Findx 


GOSBVL 
GOSBVL 
?2A=0 
GOYES 
D0O=(5) 
DATO=A 
CD1EX 
D1=C 
DO=D0+ 
DATO=C 
GOSBVL 


GOSBVL 
GOC 
GOSBVL 
GONC 
LC(2) 
GOVLNG 
GOSBVL 
GONC 
p= 
LC(4) 
GOVLNG 
D1=(5) 
C=0 
C=DAT1 
GOSBVL 
GONC 
CD1EX 
B=C 
CD1EX 
GOSBVL 
?C<D 
GOYES 
A=B 
D1=A 
C=D 
GOSBVL 
CD1EX 
D1=C 
R3=C 


* 


GOSBVL 


* A ce stade : 


OÙ # # # # # * 


S-R1-2 = 
S-R1-3 
R319:5] = 
R3 [4 :0] 


Find40 P= 


+ # % + 


=EXPEXC 
=REVPOP 
à 
NStrng 
=S-R1-2 
A 


5 
À 
=AVE=D1 


=GETPRO 
Mferr 
=GETSTC 
Find20 
=eFTYPE 
=MFERR 
=NULLP 
Find30 
0 
=eNFOUN 
=BSERR 
=CURRL 
A 

4 
=FINDL 
NStrng 


A 
=NXTLIN 
A 


Find15 
A 


=CSLWS 


=LDCM10 


0 


depose "search!" sur La MS 
renverse search 
LEN(search)=0 ? 

oui, erreur 

S-R1-2 := LEN(search) 


* search 


DO := * S-R1-3 
S-R1-3 := * search 
AVMEME := D1 


fichier prive ? 
oui, erreur 
fichier Basic ? 
oui 

non, erreur 


fichier vide ? 
non 
erreur ‘Not Found! 


positionnement .. 


.. Ligne courante 

non trouvee 

C[A] := * numero de ligne 
sauve dans B[A] 

restaure D1 

ligne suivante 

avant fin de fichier ? 
oui 

non, on commence a la .. 
-.. Ligne courante 

CIAJ] := * fin fichier 
C[A] := ” debut de ligne 
D1 := ”* debut de ligne 
sauvegarde des pointeurs 
de fichier dans R3 
decompile La ligne 


(OUTBS) * Ligne decompilee ("objet") 
B[A] = LEN(object) en octets 
P indetermine 


LEN(search) 
* search 
“ debut de ligne courante 
$ fin de fichier 


par securite 


Comme La recherche porte simplement sur La 
partie utile de La ligne, excluant Le numero de 
ligne, il faut actualiser La longueur de La 
ligne 
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C=0 W 
DO=(5) =OUTBS 
=DATO A 
DO=(4) =LDCSPC 
C=DATO A 
* 
C=C-A A 
CSRB 
C=C+1 
A=B 
A=A-C 
* 
B=A A 
=A+A 
C=DATO A 
R2=C 
D1=C 
DO=(5) =S-R1-3 
C=DATO A 
R1=C 
DO=D0- 5 
C=DATO A 


> > >» 


> 


* A ce stade : 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


ALA] = LEN(objet) 
R2 = * objet 
C[AJ] = LEN(search) 
R1 = * search 


* debut de ligne 


C[A] := ” espace apres 
numero de ligne 


longueur en octets 

+ 1 espace 

ATA] longueur totale 
ACA] := longueur sans 
en-tete 


B[A] := longueur utile 
ALCA] := longueur en nibs 
C[A] := * objet 


R2 := * objet 
D1 := ” objet 


R1T := ” search 
DO * S-R1-2 
C[A] := LEN(search) 


Le code est inspire de POS et STREQL mais ces 
deux sous-programmes travaillent sur des chaines 
“inversees!" (premier caractere en adresse haute) 
Ici le premier caractere est en adresse basse. 
La chaine est divisée en n blocs de 16 quartets 


et un reste. 


A=A-C A 
GOC Pos5 
C=C-1 A 
P=C 0 
* 
CSR à 
D=C À 
GONC  Pos3 
Pos2 C=B à 
RSTK=C 
CD1EX 
RSTK=C 
CD1EX 
C=D A 
B=C A 
GOSUB streql 
* 
C=RSTK 
D1=C 
C=RSTK 
B=C A 
GONC  Posé 
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LEN(objet)<LEN(search) 

LEN(search)-1 

RMD(Len(search$)-1,16) 
-> reste 

DIV(Len(search$)-1,16) 
En 

B.E.T. 


Scanindex -> Stack; 
Scanpt -> Stack; 
B[LA] :=n 


compare search avec 
suite de objet 


la -- 


restaure D1 


€ = = = —— 


restaure B[A] 
search incluse dans objet 





Pos3 


Pos4 


Pos5 


Posé 


B=B-1 A 
C=R1 
DO=C 
GOC Pos5 
A=DATO B 

* 
D1=D1+ 2 
C=DAT1 B 
2A=C B 
GOYES Pos2 
B=B-1 A 
GONC  Posé 
A=R2 
D1=A 
A=R2 
C=0 m 
C=A A 
AD1EX 
A=A-C A 


utilise plus loin 
* search | 
DO := * search | 
objet est analyse <------ 

A[B] := premier caractere 

de search 

caractere suivant de objet 
CIB] := caractere suivant 


debut d'egalite 
reste-t-il des caracteres 
oui 

sortie 

pour avoir 0 plus loin 


ALA] := ” objet 
D1 := * premier caractere 


* ALA] contient Le deplacement (dans objet) 
* pour lequel on a trouve search dans objet. 
* Si cette valeur est non nulle on va afficher La 


* Ligne 


p= 0 
C=R3 

D1=C 

?2A=0 À 
GOYES Findé0 


* On affiche La ligne. 
* IL faudra positionner Le curseur sur Le 


a 


Find* 


R3=A 
GOSBVL =LDCOMP 
* 


* 


DO=(5) =OUTBS 
C=DATO A 
DO=C 
D1=(5) =LDCSPC 
A=0 M 
A=DAT1 A 

* 
A=A-C À 
C=R3 
A=A+C A 
ASRB 
RO=A 
C=B A 
RSTK=C 
GOSUB 
NIBHEX 
NIBASC !>! 
NIBHEX B1E3 
NIBHEX FF 
C=RSTK 
D1=C 
GOSBVL 
C=RSTK 


Find* 
B1C3 


=BF2DSP 


D1 := * debut de Ligne 
a-t-on trouve search ? 
non 


premier caractere ou on trouve search 


R3 := deplacement 
Decompile La ligne pointee 
par D1; elle devient 

ligne courante 


DO := * premier caractere 


ALA] := ” espace apres le 
numero de ligne 


CLA] := deplacement 
ajoute a l'offset 
converti en octets 
sauve dans RO 
2*LEN(lLigne) 
sauvegarde 


curseur eteint 

1>1 

curseur allume 

fin de sequence 

CLIA] := ”* debut sequence 


affiche La sequence 
B[A] := 2*LEN(lLigne) 








B=C A 
GOSBVL =DSPCNO affiche buffer de sortie 
C=RO nombre de curseur a droite 
GOSBVL =CURSRT execution ... 
GOSBVL =BLDDSP construit l'affichage 
GOVLNG =MAIN30 retour a Basic 

* on n'a rien trouve sur La ligne courante, on 

* essaie de passer a La ligne suivante. 

Findé0 GOSBVL =CSRW5 


D=C A DIAJ] := * fin de fichier 
GOSBVL =NXTLIN passage ligne suivante 
P= 0 

?2C<D A dans le fichier ? 


GOYES Find70 oui 
GOTO  NStrng fin de fichier et rien 
» trouve 
* on va passer a La ligne suivante, on remet Les 
* pointeurs en place et on verifie que 
* l'utilisateur n'a pas appuye sur [ON]. 
Find70 C=R3 


CD1EX . 

R3=C restaure R3 

GOSBVL =CK"ON" verifie [ON] -----------. 
C=R3 
D1=C D1 := * numero de ligne | 
GOC Findx+ [ON] non demande <------ 


GOVLNG =NXTSTM si demande, fin 
Findx+ GOTO Findx recommencons ... 
morest A=DATO W 


C=DAT1 W 
2A#C VW 
RTNYES # retour Carry Set 
DO=D0+ 16 S mot suivant 
D1=D1+ 16 
streql B=B-1 A termine avec Les mots 
* complets 
GONC  morest non 
tailst A=DATO WP test sur le reste 
C=DATT WP 
2A#C WP 
RTNYES 
RTNCC 
END 
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TO KEN OR NOT TO KEN 


Le programme Basic qui je vous présente est 
un éditeur de fichiers Lex. 


Je vous déçois tout de suite : il ne s’agit pas 
d’un désassembleur, ni même d’un éditeur 
hexadécimal à la manière de la fonction RAMED 
du module ZENROM du HP-41. Non ! Ce 
programme vous permettra simplement de 
connaître l’Id du fichier édité ainsi que le nom 
et le token des mots clés qu’il renferme, puis 
de les modifier dans certaines limites. 


Lancez le programme par RUN ; si vous voulez 
l'affichage en vidéo inversée, faites RUN,15 (la 
première fois seulement). Je reviendrai plus 
tard sur cette caractéristique. 


Le programme vous demande le nom d’un 
fichier ; la question est posée tant que le 
fichier nommé n'existe pas. Une entrée vierge 
sort du programme. 


On entre ensuite réellement dans l'éditeur 
grâce au sous programme TOKEN. Celui-ci 
commence par vérifier que le fichier choisi est 
bien un fichier Lex. Si ce n’est pas le cas, 
vous aurez droit à un message d’erreur 
approprié. Le programme va ensuite 
rechercher divers paramètres du fichier Lex : 


- l’octet d'identification du fichier ou Id (le 
numéro d’'XROM s1 vous préférez), 


- le plus petit et le plus grand token du 
fichier (très important, vous le constaterez 
plus loin), 


- un éventuel lien avec un autre fichier Lex si 
vous les avez chaînés par exemple, 


- et enfin l’offset de la "Text Table" et 
l'adresse elle même de cette table qui contient 
les noms et tokens des mots clés présents. 


Il ne reste plus qu’à boucler sur le nombre de 
tokens ; en fait, jusqu’à la fin de la "Text 
Table" signalée par le triquartet 1FF. 
Entre-temps, on édite pour chaque token l’Id 
du fichier, le nom du mot clé et son token. 


L’attente de l’appui sur une touche permet de 
piloter le programme : 
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- n'importe quelle touche sauf [M] ou to] fait 
poursuivre l’édition au token suivant. 


- la touche ta] termine l’édition. 


- Ja touche M]  bifurque vers le 
sous-programme de modification. A ce 
moment, le programme vous propose de 


modifier successivement l’Id du fichier puis le 
nom du mot clé et enfin le token. La seule 
restriction concerne le nom du mot clé si vous 
le modifiez : il doit avoir exactement le même 
nombre de caractères avant et après 
modification. À chaque fois, le programme 
vous rappelle le contenu de chacun des 
paramètres que vous pouvez modifier. Bien 
sûr, si le fichier est protégé, un message 
d’erreur vous rappelle à l’ordre. 


Après l'affichage de chaque token, le 
programme calcule les tokens minimum et 
maximum. En cas de modification de ces 
derniers, il est impératif de mettre à jour ces 
valeurs, stockées juste après l’Id (vous vous en 
souvenez j'espére Car je vous en ai parlé un 
peu plus haut). C’est très important car si HP 


soigne particulièrement ses systèmes 
d’exploitation, ceux-ci ont une fâcheuse 
tendance à  l’amnésie. C’est pourquoi, 
d’ailleurs, lorsque vous terminez l'édition 


avant le terme, le programme est obligé de la 
poursuivre en douce (sans affichage) pour être 
sûr de bien mettre à jour ces deux valeurs. 
C’est également pour cette raison que je vous 
recommande de ne pas interrompre le 
programme. 


Lorsque la boucle est terminée, le programme 
se rappelle si un autre fichier Lex est chaîné à 
celui-là et recommence éventuellement 
l'opération. 


Si, d’aventure, vous éditiez un fichier sans 
mot clé (interception de poll par exemple), le 
programme éditera un message entendu. 


En analysant le programme, vous constaterez 
que tous les accès à la mémoire se font par 
Forth interposé. À cela, plusieurs raisons qui 
justifient qu’on perde quelques 2500 octets de 
mémoire : 


- Forth est plus rapide (10 fois plus : on ne 
vous le dira jamais assez, Basic est facile mais 
très très lent). 


- Forth est plus facile à mettre en oeuvre que 
PEEK$ et  POKE Car on peut manipuler 
indifféremment des nombres entiers ou des 
chaînes de caractères. 


- Forth remet tout à l’endroit : allez donc 
récupérer une chaîne de caractères avec PEEK$ 
alors que celle-ci est complètement inversée ; 
je veux dire quartet par quartet en partant de 
la fin : dingue, je vous le répète ! 


- Forth n’a que faire des zones privatisées ou 
protégées. 


Enfin, si vous voulez étendre les possibilités 
du programme, vous pouvez le faire bien 
entendu. Il y a certainement bien d’autres 
choses intéressantes à découvrir dans les 
fichiers Lex. Mais je crois que le plus 
judicieux serait de reprendre le programme 
SCAN de Jean-Pierre Bondu (JPC 39), d'y 
faire appel au Forth, puis d’y incorporer mon 
programme ; on  obtiendrait ainsi un 
programme très complet d’édition de fichiers 
Lex. À suivre... 


Pour terminer, quelques mots sur l'affichage 
en vidéo inversée dont je parlais plus haut : 
un peu de fantaisie dans un programme n’a 
jamais nui à quiconque. Je me suis donc 
amusé à décaler dans la deuxième page de 
caractères (+128 donc) certains titres non 
changeant qui sont envoyés à l’affichage ("New 
Keyword:", "ip:", etc.) Le sous-programme 
CHARSET appelé en ligne 15 construit alors 
un CHARSETS avec les caractères standards 
en vidéo inversée et le tour est joué : c’est 
plus rapide que d’inverser tout ou partie de 
l'affichage en temps réel. 


Voici comment procéder pour introduire un 
texte en video inversée dans un programme : 


- initialisez une variable alphanumérique avec 
la chaîne de caractères normale ; soit P$ cette 
chaîne 

- tapez. au clavier CALL INVSTR(P$) ; votre 
variable contient la même chaîne en vidéo 
inversée 

- il ne vous reste plus qu’à affecter cette 
chaîne à une touche du clavier (mode USER) 


pour  l’introduire telle quelle dans le 
programme: 

DEF KEY "code touche",P$; 

Attention : le fichier Lex CHARLEX 


(caractères accentués) est incompatible avec ce 
procédé ;: il réinitialise CHARSETS$. 





Bonne édition et maintenant, remettez un peu 
d’ordre dans la multitude de tokens qui 
encombrent la mémoire de votre machine 
préférée. 


Alain Goubault (308) 


PROGRAMME DE DEBUTANT 


On peut être débutant et pourtant navigateur ! 
C’est pourquoi, puisque JPC réclame des 


articles de débutants, je vous propose 
aujourd’hui un petit programme pour les 
vacances. 


Le programme DISTANCE permet, muni d’un 
sextant, de calculer à quelle distance on se 
trouve d’un amer dont la hauteur est connue, 
qu'il se trouve avant ou après l’horizon. 


Le programme donne en prime la distance de 
l'horizon et la distance théorique maximum de 
visibilité pour l'observateur, ceci évitera 
d’écarquiller les yeux pour chercher un phare 
qu’on ne saurait apercevoir avant la fin de la 
nuit ! 

Pour obtenir directement la distance de 
l'horizon et la distance théorique de visibilité 
d’un amer non encore aperçu, entrer 0 comme 
hauteur sextant. 


Bonne programmation et bonne navigation ! 


François Duret-Lamouroux (329) 


LE POINT SUR LES NUAGES 


Les fonctions statistiques du HP-71 sont 
particulièrement puissantes et souples 
d’utilisation. Cependant, pour des besoins 
précis, il peut être souhaitable de les 
compléter par des programmes. Voici ma 
contribution : 
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BUT 
Ce programme permet de trouver l'équation 
d’un nuage de point. Il utilise les fonctions 
statistiques du HP-71. A partir de l’ensemble 
de points (x,y), nous pouvons obtenir une des 
quatre équations suivantes : 
droite: y=a+bx 
exponentielle : y = a * e Px 
logarithmique : y = a + b Log x 
puissance : y=a+b* 
Le programme peut traiter jusqu’à 500 points 


mais, généralement, une dizaine bien choisie 
suffit. 


UTILISATION 


Faites : RUN NUAGE 


Le programme affiche alors son menu 
principal : 

Raz. Ad. Cherc. Previ. 

[Raz.] 

La touche tr] (Remise à Zéro) permet 


d'effacer tous les points existants. Comme le 
programme utilise l’environnement principal, 
il est recommandé de faire une remise à zéro 
lors d’une première utilisation. 


[Ad.] 
La touche tA] permet d’ajouter de nouveaux 


points, de supprimer des points existants ou 
d'isoler des points. 


[Cherc.] 

La touche tc] permet de rechercher Ja 
meilleure corrélation pour les points 
disponibles et de choisir une des quatre 
équations. 

[Previ.] 


La touche tp] permet de faire une prévision 
(extrapolation) en fonction de l'équation 
retenue à l’étape précédente (Cherc.). 
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EXEMPLES D'UTILISATION 


Introduction des données : ([Raz.] et [Ad.]) 


Après avoir appuyé sur 
affiche : 

X1: 0 

Tous les points sont remis à zéro, le 
programme est prêt à traiter un nouveau cas. 


[RI, le programme 


Pour introduire une valeur, il suffit de frapper 
le nombre voulu ; par exemple : (129,7) soit 
X1=129 et Y1=7. 


Affichage Touches 
xX1: 0 [1] 

x1?2 1 [2] 

xX1? 12 [9] 

X12 129 CENDLINE] 
120 


Automatiquement le programme passe à la 
valeur suivante: Y]1. 


Affichage Touches 
Y1: 0 C7] 

Y12 7 CENDLINE] 
X2: 0 


Vous pouvez vous déplacer d’une valeur à 
l’autre à l’aide des touches [1 et tvi ou 
directement comme ceci : 


Affichage Touches 
X2: 0 CY] 

X2: 0 (11 

Y1 [6] 

Y16 (21 

Y162 CENDLINE] 
Y162: 0 


L'introduction des différentes valeurs se fait 
selon les mêmes procédés que le point 1! 
(129,7). 


Affichage Touches 
Y162: 0 [1] 

Y162? 1 [7] 

Y162? 17 [CENDLINE] 
Y162: 17 


A ce point du programme, nous avons un 
nuage de deux points, soit (129,7) et (0,17). 


Pour sortir de l’éditeur et revenir au menu 
principal, on utilise la touche CATTNI. 
Raz. Ad. Cherc. Previ. 





Recherche de la bonne corrélation 


Soit la suite de points suivante : 
(4, 1024) 
ct, 1) 
(3, 243) 
(7, 16807) 
(8, 30000) 


Après avoir introduit les 5 points ci-dessus et 
être revenu au menu principal, appuyez sur la 
touche rc1 (Cherc.). 


Le programme donne les quatre corrélations 
suivantes : 


Affichage Touches 

Dr. .913260728017 CENDLINE] 
Ex. .953914151914 [ENDLINE] 
Lg. .765623658583 [ENDLINE] 
Pu. .999966898932 [ENDLINE] 


Dr. EX. Lg. Pu. Me. 


Nous voyons que la meilleure corrélation est 
obtenue avec une courbe du type Puissance 
(.999966898932) et que la moins bonne est 
obtenue avec une courbe du type Log 
(.765623658583). 


Le sous-menu suivant vous permet de choisir 
le type de courbe que vous désirez : 


Droite 

Exponentielle 
Logarithmique 
Puissance 

Meilleure des quatre 


Affichage Touches 
Dr. EX. Lg. Pu. Me. [M] 
y=a*x"pb CENDLINE] 
corr. = .9999669 [ENDLINE] 
a = 1.0147922 CENDLINE] 
b = 4.9751662 CENDLINE] 


Raz. Ad. Cherc. Previ. 


Nous obtenons donc l’équation suivante : 
y = 1.0147922 x 49751662 

Nous sommes presque en présence d’une 
équation du type : y = x°. 


Si l’on regarde bien les 5 points, on remarque 
que les quatre premiers YŸ sont bien égaux aux 
puisances cinquièmes de leurs X respectifs 
mais que le cinquième Y est différent. En 
effet, 8°=32768 et non 30000. 


Revenons sous l’éditeur : [A] 


Affichage 

X6: 0 

Y5: 30000 

[ Y5: 30000 ] 

[ X5: 8 1 

Raz. Ad. Cherc. Previ. 


Touches 
[°1 

C/1 

["1 
CATTN] 


Nous avons isolé le point numéro 5, il ne sera 
plus pris en compte lors de la prochaine 


recherche. 
Affichage 


Dr. .888918507746 
Ex. .953046045207 
Lg. .713783989995 
Pu. 1 

Dr. EX. Lg. Pu. Me. 
vins *:x “D 


corr. = 1 
a = 1 
b=5 


Raz. Ad. Cherc. Previ. 


Touches 
[C] 
[CENDLINE] 
CENDLINE] 
CENDLINE] 
CENDLINE] 
[M] ou [P] 
CENDLINE] 
CENDLINE] 
CENDLINE] 
CENDLINE] 


Le point 5 peut être supprimé... 


5:61 

Suppression 5 

X5: 0 

Raz. Ad. Cherc. Previ. 
Dr. .888918507746 

Ex. .953046045207 

Lg. .713783989995 

Pu. 1 


Dr. EX. Lg. Pu. Me. 
y=a*x"Db 

corr. = 1 

a = 1 

b=5 

Raz. Ad. Cherc. Previ. 
Prévision 


CA] 
a 


[ON] 

[C] 

CENDLINE] 
CENDLINE] 
CENDLINE] 
CENDLINE] 
[M] ou [P] 
CENDLINE] 
CENDLINE] 
CENDLINE] 
[CENDLINE] 


La touche tp] permet d'effectuer une prévision 
sur l'équation choisie durant la phase de 
recherche de la meilleure corrélation. 


Affichage 

Raz. Ad. Cherc. Previ. 
Prev. X ou YŸ 7? 

X ? 

Fr 

16807 


X 
Y 
X 





Touches 

(P] 

[Y] (par exemple) 
C7] 

CENDLINE] 
CENDLINE] 

C-] 
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X T° [3] 
K ? 3 CENDLINE] 
Y = -243 CENDLINE] 
X ? [CENDLINE] 
Raz. Ad. Cherc. Previ. [P] 
Y ? [1] 
Y 2? 10 [0] 
Y 2? 100 [0] 
Y 2? 1000 | [0] 
Y ? 10000 [0] 
Y ? 100000 CENDLINE] 
X = 10 CENDLINE] 
17 CENDLINE] 


Raz. Ad. Cherc. Previ. CATTN] 


Voilà pour ce petit programme qui, j'espère, 
vous amusera beaucoup. 


Je n’ai pas cherché à gagner des octets. Si vous 
faites mieux en moins de place, n’hésitez pas à 
envoyer votre oeuvre au Journal. 


Michel Martinet (12) 
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Programme "LEXED" (Editeur de Lex. Necessite FILELEX, KEYWAIT et DESLEX) 


- Programme d'édition de fichiers LEX 
A. Goubault de brugière 25 nov 1986 
LEX utilisés: FILELEX, KEYWAIT$ (Sub TOKEN) 
et DISPLEX (sub CHARSET) ainsi que FORTH 
10 GOTO 20 
15 CALL CHARSET 
20 DIM N$[8] @ INPUT ‘Name of file: !':N$ @ IF N$='! THEN STOP 
25 IF NOT FILE?(N$) THEN 20 ELSE CALL EDLEX(N$) 


30 SUB EDLEX(NS$) 

35 SFLAG 1 à SFLAG 2 à SFLAG 3 

40 DIM 1$[(21,R$[8],F$[16] ,R1$ [2] 

45 DO=HTD(ADDRS(N$)) @ D1=D0+16 à D2=D0+37 à D3=D0+43 Q D4=D0+49 
50 FORTHX '4NQ',D1 à T=FORTHI 

55 IF T<>HTD('E208'}) AND T<>HTD('FF') THEN 170 

60 FORTHX 'Na',D1+4 @ P=FORTHI 





65 FORTHX 'DUP Ca SWAP 2+ DUP Ca SWAP 2+ Ca',D2 à L2=FORTHI à L1=FORTHI @ I$=DTH$(FORTHI) [4,5] 


70 FORTHX 'Q!,D3 àQ D=FORTHI à 1F D=0 THEN CFLAG 1 

75 FORTHX 'Nd',D3+5 Q IF FORTHI=O THEN D4=D4+79 

80 FORTHX '&4NQ',D4 @ MO=FORTHI @ IF M0=0 THEN 180 

85 D5=D4+M0-1 à M1=255 à M2=0 

90 FORTHX 'NQ!',D5 à S=FORTHI+1 

95 FORTHX !'!,D5+1,S/2 @ R$=FORTH$ à F$=R$S&! ' @ R$=F$[1,8] 
100 IF NUMCR$[1,21)=255 THEN 150 

105 FORTHX !Ca',D5+S+1 Q R1=FORTHI à R1$=DTH$(R1) [4,5] 

110 IF NOT FLAG(2) THEN 140 

115 CFLAG 3 Q CALL DISP(I$,R$,R1$) 

120 ON POS("MQ",KEYWAIT$)+1 GOTO 140,125 ,135 

125 IF P=0 THEN CALL MODID(I$,D2,R$,S/2,R1$,D5) à GOTO 140 
130 IF P<>0O THEN DISP ‘Secured or Private! @ WAIT 1 à GOTO 105 ELSE 140 
135 CFLAG 2 

140 D5=D5+S+3 @ R1=HTD(R1$) @ M1=MIN(M1,R1) à M2=MAX(M2,R1) 
145 GOTO 90 
150 IF M1<>L1 OR M2<>L2 THEN FORTHX 'C! C!',M1,D2+2,M2,D2+4 
155 IF NOT FLAG(1) THEN 175 
160 D2=D3+D Q D3=-D2+6 à D4=D2+12 
165 GOTO 65 
170 BEEP à DISP ‘Not a LEX file' @ GOTO 190 
175 IF L1<>0 AND L2<>0 THEN PUT "#43" @ GOTO 190 
180 IF NOT FLAG(3) THEN 190 
185 BEEP à DISP 'èén ':1$:! OA Ÿÿ àÿSiŸ! 
190 CFLAG 1 à CFLAG 2 à CFLAG 3 @ END 


195 SUB DISPCNS,T$,T1$) 
200 DISP 'èén'8&NS&! ù4 '&TSR' 48 18TIS 
205 END SUB 


210 SUB MODID(I$,D2,T$,L,T1$,D5) 

215 INPUT ! üf4k Èèén ‘,1$:1$ à I=HTD(1$) 
220 FORTHX 'Cl',1,D2 

225 INPUT ! ôf4 üf24ÿ da ‘,TS[1,L]:T$[1,L] 
230 FORTHX 'SWAP CMOVE!,T$[1,L] ,D5+1 





JPC 45 Page 29 


INPUT ! Of àÿS1Ÿe 1,T1$;:T1$ Q T1=HTD(T1$) 
FORTHX 'C1!,71,D5+L*2+1 
END SUB 


SUB CHARSET 

DIM A$[128] à CHARSET !! à A$=1: 

FOR N=0 TO 127 à L=N 

IF L=0 OR L=8 OR L=10 OR L=13 OR L=27 THEN L=32 
A$=AS&CHRS(L) à NEXT N 

K2=0 

FOR 1=1 TO 5 

K1=K2+1 à K2=K1+21 

DISP A$S[K1,K2] @ INVERSE à CHARSET CHARSETS&GDISPS 
NEXT 1! 

DISP A$1111,128] à GDISP INV$S(GDISP$(1,108]1) à CHARSET CHARSETS8&GDISPS 
END SUB 


SUB INVSTR(CS$) 

FOR 1=1 TO LEN(CS) 
C$CI,1)]=CHR$S(NUM(CS CI ,1] )+128) 
NEXT ! @ END SUB 


MORE EE M ee ee A ee A RAR RER RE R RR R R RRRRRRRRRRRRR R R 


Programme ‘’NAV'! (Navigation) 


10 
11 
20 
30 
40 
50 
39 
70 
80 
85 
90 
100 
110 
120 
130 


DESTROY D,H,S,V 
DISP “Pour dist.hor.et vis.S=0" à WAIT .2 

INPUT "Elévation de l'oeil:",1?1:E0 

INPUT “Hauteur objet, ,mètres=",12!1-H 

INPUT "Hauteur sextant, minutes=!",121:5 

INPUT ‘Avant horizon? (O/N): !,'0':W$ 

IF S=0 THEN GOTO 100 

IF W$='0! THEN 85 ELSE 80 
D=1.19*(SQR((S-.97*SQR(E0*3.2808))"2+3.12*(H-E0))-(S-.97*SQR(E0*3.2808))) à GOTO 90 
D=1.856*H/S à GOTO 90 

DISP ‘Dist.observée ';:D;:'milles' @ WAIT 1 

O=2*SQR(E0) 

DISP "Distance à l'horizon=":0;:"milles" Q VWAIT 1 

V=2.1*(SQR(E0)+SQR(H)) 

DISP "Visible à ":V:"milles!" 


KRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARRRMMRÉ 


Programme "NUAGEPT"! (Programme d'ajustement interactif de courbes) 


PROGRAMME NUAGEPT 

Ce programme a pour but principal de trouver l'équation ou Les équations 
d'une courbe donnée ou d'un nuage de points. On peut généralement être 
satisfait d'un résultat lorsque l'on obtient un coefficient de corrélation 


JPC 45 Page 30 





compris entre 0.90 et 1. 
Ce programme utilise l'environement principal. 
mise en pratique des fonctions statistiques et régressions linéaires. 
Aucune fonction LEX supplémentaire n'y est utilisée. 
Un simple HP-71 sans HP-IL et sans module supplémentaire suffit. 
IL est indispensable d'exécuter une remise à zéro du programme si vous 
n'êtes pas sûr de La dimension et de La valeur de vos variables. 
100 POKE "2F441",11" Q DEFAULT EXTEND @ OPTION ROUND NEAR @ WIDTH 80 
105 LC OFF à STD à DIM A$[3],K$[41,X$,Y$ 
110 DELAY 0,0 à DISP "Raz. Ad. Cherc. Previ." 
120 K$=KEY$ Q IF NOT LEN(K$) THEN 120 
130 IF NUM(K$)#35 THEN 140 ELSE IF K$="#43" THEN PUT K$ à POKE "2F441","0" à STD à END 
- Remise à zéro (82 => "R") 
140 IF NUM(K$)=82 THEN GOSUB 1000 
- Addition de nouveaux points (65 => A") 
150 IF NUM(K$)=65 THEN GOSUB 1020 
- Recherche équation en fonction du nuage 
de points actuel (67 => "C") 
160 IF NUM(K$)=67 THEN DELAY 8 à GOSUB 2000 
- Interpolation en fonction de l'équation trouvée 
(80 => "pu 
170 IF NUM(K$)=80 THEN DELAY 8 @ GOSUB 3000 
180 GOTO 110 
- Préparation de l'environnement principal pour une nouvelle étude. 
1000 OPTION BASE O0 @ REAL 1,J,L,M,N,R,U,V,X,Y,Z Q REAL A(L,1) @ INTEGER W9(L) 
1010 A(0,0)=0 à A(0,1)=0 à W9(0)=0 
- La Ligne 1030 est un point de retour obligé pour la redéfinition de 
de la taille des tableaux. 
1020 REAL A(L,1) à CFLAG 5 à INTEGER W9(L) 
1030 IF W9CR) THEN A$="[I ]" ELSE A$=" 
1040 DISP ASL1,218&CHR$(88+Z)&STRS(R+1)&M: M ACR,Z); AS C3] 
Attention : La fonction KEYDOWN est légèrement boguée lorsqu'elle est 
utilisée avec un paramètre. Si l'expression de K$ est différente de 
celle de La touche pressée Lors du test, Le système renvoie une erreur. 
Ex : K$="#51" avant test, La touche pressée durant Le test est 
MfG" ===> ERREUR ! #XX <> [g[f[X]]] 
1050 IF KEYDOWN(K$) THEN 1070 
1060 K$=KEY$ à IF NOT LEN(K$) THEN 1060 ELSE IF LEN(K$)>3 THEN 1060 
1070 IF K$="#50" THEN Z=MOD(Z+1,2) @ R=R-(Z*(R>0)) à GOTO 1020 
1080 IF K$="#51" THEN Z=MOD(Z+1,2) @ R=R+NOT Z*(R<499) Q L=L+(R>L) @ GOTO 1020 
1090 IF POS(".0123456789",K$) THEN 1150 
1100 IF NUM(K$)=88 THEN Z=0 à GOTO 1210 
1110 IF NUM(K$)=89 THEN Z=1 à GOTO 1210 
1120 IF NUM(K$)=45 THEN 1250 ELSE IF K$="#43" THEN RETURN 
1130 IF NUM(K$)=47 AND ACR,0)+ACR,1) THEN W9CR)=MOD(W9(R)+1,2) @ M=M-(W9CR)#0)+NOT W9(R) 
1140 GOTO 1030 
1150 N=ACR,0)+ACR, 1)#0 
1160 WINDOW LENÇ(STR$(R+1))+4,22 @ PUT K$ @ INPUT A(R,Z) @ WINDOW 1,22 
1170 IF A(R,Z)<0 THEN 1160 
1180 IF ACR,0)+ACR,1) AND NOT N THEN M=M+1 
1190 IF N AND NOT (ACR,0)+ACR,1)) THEN M=M-1 
1200 K$="#51" à GOTO 1080 
1210 K$=KEY$ à IF NOT LEN(K$) THEN 1210 
1220 IF NOT POS("123456789" ,K$) THEN 1030 ELSE DISP CHR$(88+Z) 
1230 PUT K$ à WINDOW 2,22 à INPUT ""°R Q IF R<1 OR R>500 THEN 1230 ELSE R=R-1 
1240 L=L+(R-L)*(R>L) @ WINDOW 1,22 @ GOTO. 1020 
1250 DISP "Suppression";R+1 @ N=(ACR,0)+ACR,1)#0)-(W9CR)#0) 
1260 FOR I=R+1 TO L @ A(I-1,0)=A(1,0) à A(1-1,1)=A(1,1) à W9(1-1)=W9(1) à NEXT 1 
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1270 M=M-(N#0) @ L=L-(L>R) 


1280 
1290 


2000 


2010 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 


2230 
2240 


3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


4100 
4200 


4300 
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IF R=499 THEN A(R,0)=0 à ACR,1)=0 

GOTO 1020 

Aucune régression ne peut être faite pour un seul point. 

IF M<2 THEN DELAY 1 @ BEEP Q DISP “Pas assez de points !" à RETURN 
Remise à zéro des tableaux statistiques 

STAT S(4) à CLSTAT à REAL C(4),P(1) 

Préparation du tableaau S() pour La régression. Lorsqu'un point 
est nul (X=0 et Y=0) il n'est pas pris en comte. 

FOR I=L TO O STEP -1 

IF NOT (A(1,0)+A(1,1)) OR W9(I1) THEN 2080 

FOR J=0 TO 1 

IF NOT A(I,J) THEN P(J)=EPS ELSE P(J)=A(I,4J) 

NEXT J 

ADD P(0),LN(P(0)),P(1),LNC(P(1)) 

NEXT I @ ON ERROR GOTO 2240 

C(1)=ABS(CORR(1,3)) à DISP "Dr.";:C(1) 

C(2)=ABS(CORR(1,4)) à DISP "Ex.":C(2) 

C(3)=ABS(CORR(2,3)) à DISP "Lg.":C(3) 

C(4)=ABS(CORR(2,4)) à DISP "Pu.":C(4) à@ OFF ERROR 

DISP "Dr. EX. Lg. Pu. Me." 

K$=KEY$ @ IF NOT LEN(K$) THEN 2140 

C(0)=POS("DELPM!,K$) @ 1F NOT C(0) THEN 2140 ELSE K$="" 

IF C(0)=5 THEN CALL MCORR(C) 

ON C(0) GOSUB 2200,2210,2220,2230 à SFLAG 5 

FIX 7 @ V=VAL(STRS(V)) @ W=VAL(STR$(W)) à C(C(0))=VAL(STRS(C(C(0)))) à STD 
DISP "corr. =":C(C(0)) à DISP “a =";:V Q DISP "b =": Q RETURN 
linéaire 

LR 3,1,V,W Q DISP "y = a + b * x" Q RETURN 

exponentielle 

LR 4,1,V,W @ V=EXP(V) à DISP "y = a * e * ( b * x )" à RETURN 
logar i thmique 

LR 3,2,V,W à DISP “y = a + b * Log ( x )" à RETURN 

puissance 

LR 4,2,V,W @ V=EXP(V) Q DISP "y = a * x ” b" Q RETURN 

DELAY 1 àQ BEEP à DISP "Pente = 0 !" Q OFF ERROR à RETURN 

PREVISION ! Non utilisation de La fonction PREDV du système pour ne pas 
refaire une régression à chaque changement de variable dépendante. 
IF NOT FLAG(5) THEN RETURN 

DISP “Prev. X ou Y ?" 

K$=KEY$ @ IF NOT LEN(K$) THEN 3020 

IF K$="#43" THEN RETURN ELSE IF NUM(K$)=89 THEN 3090 ELSE IF NUM(K$)#88 THEN 3020 
DISP "TT 72.2: 

K$=KEY$ @ IF NOT LEN(K$) THEN 3050 ELSE IF K$="#43" THEN PUT "#38" ELSE PUT K$ 
INPUT "M:Y$ @ IF NOT LEN(Y$) THEN RETURN ELSE Y=VAL(Y$) 

DISP M X =": Q ON C(0) GOSUB 4100,4200,4300,4400 à GOTO 3040 

GOTO 3000 

DIX 7e. 

K$=KEY$ @ IF NOT LEN(K$S) THEN 3100 ELSE IF K$="#43" THEN PUT "#38" ELSE PUT K$ 
INPUT "M:X$ @ IF NOT LEN(X$) THEN RETURN ELSE X=VAL(XS) 

DISP M Y =": à ON C(0) GOSUB 4500,4600,4700,4800 à GOTO 3090 

GOTO 3000 

Droite prévision de X 

X=(Y-V)/W à DISP X @ RETURN 

Exponentiel prévision de X 

X=LN(Y/V)/W à DISP X @ RETURN 

Log. prévision de X 

X=EXP((Y-V)/W) à DISP X @ RETURN 








- Puissance prévision de X 
4400 X=(Y/V)"(1/W) @ DISP X @ RETURN 
- Droite prévision de Y 
4500 Y=V+W*X à DISP Y @ RETURN 
- exponentielle prévision de Y 
4600 Y=V*EXP(W*X) à DISP Y @ RETURN 
- log. prévision de Y 
4700 Y=V+W*LN(X) @ DISP Y @ RETURN 
- puissance prévision de Y 
4800 Y=V*X"W à DISP Y @ RETURN 
- Ce sous-programme calcule Le meilleur coefficient de corrélation 
Les coefficients sont dans C(1 à 4), Le no du meilleur revient dans C(0). 


9000 SUB MCORR(C()) à C(0)=1 à FOR I=2 TO 4 
9010 IF C(I1)>C(C(0)) THEN C(0)=I 
9020 NEXT 1 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des 
fichiers Lex parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP-71, en 
assembleur, qui apporte de nouvelles fonctions. Celles-ci sont utilisables directement, 
ou dans des programmes Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer 
vous-même en assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer 
et de recopier les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles 
fonctions sont accessibles, après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverz donc, outre les Lex de la rubrique Assembleur, le Lex CHARLEX 


nécessaire à la rédaction de votre article (voir "Ah ! Vous écrivez !") et les Lex 
utilisés par les programmes Basic. 


CHARLEX 
RWLEX RRECS XFN 225094 WREC XWORD 225095 
FINDLEX FIND XWORD 225075 


KEYWAIT  KEYWAITS$ XFN 82001 
FILELEX FILE? XFN 225007 


DESLEX CONSTRAST XFN 225012 INVERSE  XWORD 225013 
INVS XFN 225014 PAINT XWORD 225015 


10 CALL MLEX à SUB MLEX à SFLAG -1 Q PURGE AH @ INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$("AH"})) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS$=AS$S&CS Q A=A+37 Q N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] @ POKE DTH$S(A),CS à A=A+16-5S*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X) [3]; @ INPUT ": ",P$[1,MOD(N,16)1;C$ à GOSUB 90 

70 POKE DTH$(A),C$ @ POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)[3]; à INPUT ": ",P$:C$ 

90 DISP DTH$S(X) [3]; à INPUT " sm ","---"-D$ 

100 M=S @ FOR Z=1 TO LEN(C$) à M=NUM(C$[Z])+M+1 Q NEXT Z 

110 IF D$=DTH$(MOD(M,4096))[13] THEN GOSUB 130 @ S=M à RETURN 

120 DISP "Erreur de somme" à BEEP Q P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$="----............ W @ RETURN 
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CHARLEX ID#E1 624 octets 036: 084E794142400000 1E9 01A: B022D245272610FB F78 


037: 00000000002€4559 527 018: 1049193BAE 137108 2EF 
0123456789ABCDEF sm 038: 3200000000000000 830 01C: 7841C52405008915 657 

039: 0000000000000026 B54 01D: 3892038845270312 9A8 
000: 34841425C4548502 35E 03A: 5556587008365556 EB3 01E: 6B307CF045170211 D18 
001: 802E000221525078 6AD 038: 5810083645464830 204 01F: 9760570884A02480 07D 
002: 5E4001E000000000 9F1 03C: 0832414248700024 545 020: Cc02380C12231FFDA 41A 
003: FE0000000800001F D4B 03): 5655587008345655 8A2 021: 208DA939042BCC22 780 
004: F31BF961400032BF ODE 03E: 5810083446454830 BF1 022: 1360672B070C7F110 B24 
005: 38F14A11DB10AD23 478 03F: 0C3042414C700024 F46 023: 13117FDB0614B31F EB4 
006: 07D532BFB8FD7911 82B 040: 5556587008355654 2A3 024: 0966C08F5A5C1411 23F 
007: 11AD754D7A101743 BAE 041: 5810083546444830 5F2 025: 8FB8C63158717FD81 5EB 
008: 11014D1CB15D0000 F19 042: 0C3142404C700025 948 026: 33D232012EA8F064 96D 
009: 71450375FF864834 296 043: 5455587008355455 CA2 027: A1D68B3D51091351 CF3 
00A: 5655581008355654 5ED 044: 5810083544454830 FFO 028: 7FD407D77380FF44 OAO 
00B: 5810002455565870 93A 045: 0C3140414C700875 352 029: 0478111131AF234F 411 
00C: 0026555658700836 C8C 046: 14141870000A4972 6A3 02A: 0002155713310124 744 
00D: 5556581008364545 FE2 047: 40000€3159454E30 A03 02B: 8F8A410071341191 AAB 
00E: 4A30000449724000 335 048: OC7A0F7949400024 D7B 02C: 358FE838180C32F0 E5E 
00F: 0808094A2C180814 69E 049: 5554587000084A71 0D7 02D: 6ACE8DD4490248DD 224 
010: A464242008355455 9F8 04A: 40000C523A262010 438 02E: D41086C62061361B 599 
011: 5810000540C714000 D3E 04B: 0424587458400875 78F 02F: 244F215641340794 8F7 
012: 0C3142404C700832 09A 04C: 1415187000094A70 ADF 030: AC0B464602402030 C5C 
013: 41414A70002078A0 3F2 04D: 4000083544454830 E23 031: 61371F0F7F21451D FE8 
014: 2F30000000000000 71D 04E: 0C3140414C300C74 18B 032: 5F0715571E508F15 36B 
015: 0000000000000000 A2D 04F: 5655545000054071 4E2 033: 171D51D980F526A8 6FF 
016: 0000000000000000 D3D 050: 40000 5DB 034: 2550A0E27A82A0E1 ABC 
017: 0000000000000000 04D 035: 5D7042032CFB8FAB E43 
018: 0000000000000000 35D / RULEX ID#E1 494 octets 036: 81154331FFD5D0E4 1DF 
019: 0000000000000000 66D 037: 15F596A1296561BF 576 
01A: 0000000000000000 97D 0123456789ABCDEF sm 038: 6F69E2C0F6F6B625 932 
018: 0000000000000000 C8D 039: 2117A5AD33320063 C9C 
01C: 0000000000000000 F9D 000: 2575C45485020202 356 03A: 7E175147D5071351 00B 
01D: 0000000000000000 2AD 001: 802E001221525078 6A6 038: 7413706147C9061F 37C 
01E: 0000000000000000 5BD 002: 1E3001EE5F500000 A1A 03C: 508F2153717F15F7 702 
01F: 0000000000000000 8cD 003: F020000000000000 D42 03D: D527B06440052690 A6A 
020: 0000000000000000 BDD 004: OFD100FDO0FAO00D 0E2 03E: E2080D51E5F7F157 EOD 
021: 000000000000080€ F08 005: 92525543442E5775 44C 03F: 71D0F06147135070 171 
022: 1A28080008080A2C 272 006: 255434F51FF8FAB6 802 040: 1 1A3 
023: 180008040E340800 5BB 007: 308FEA2305B38F46 BAO ; 
024: 08001E3018000000 8F5 008: 0308F625308F9DF3 F35 Ÿ FINDLEX ID#E1 317 octets 
025: 0000000000000000 c05 009: 0870718FEA230571 2B2 
026: 0000000000000000 F15 00A: 786252970038548D 62A 0123456789ABCDEF sm 
027: 0000000000000000 225 008: 53E208DB2E208F22 9C2 
028: 0201000000010200 538 00C: 95031C28F5EC208F D64 000: 6494E444C4548502 377 
029: 0000000201020000 850 00D: 2295031C28F5EC20 OEC 001: 802E002221525078 6C8 
02A: 0001000100000002 B64 00E: 7B22A4B700160E0D 477 002: F72001EB4B400000 A39 
02B: 0102010000000000 E78 00F: CFFF77FFF8F871F0 870 003: F710000000000000 D67 
02C: 0000000000000000 188 010: 1618F681F0161137 BDE 004: 002000776494E444 OBF 
02D: 045E755142400101 4D4 011: 0684776F1B0E604C F6F 005: B41FF8DD97309FFF 4A0 
02E: 0101010000000000 7E7 012: C0713575E1268307 2E8 006: F8F681F08F13DB08 859 
02F: 0000000000000000 AF7 013: 280110131DB0614B 64C 007: A8841BB88F214013 BE4 
030: 0000070507000000 E1A 014: 31F0966E08F5A5C1 9ED 008: 71351641448F8BB8 F6A 
031: 00000000083444C4 158 015: D94118FBC6315E31 D8B 009: 18FEEB604018F627 30D 
032: 44400D7901112D70 4B8 016: 7FD6068F13DB0D23 139 00A: 705D031F38D39390 68E 
033: 050D750509700000 802 017: 20028A64207DA07D 4B9 008: 8F9997051120338E AOA 
034: 0D70000000384540 B45 018: 77A81F35404148FB 84C 00C: 008DA93901F8E7F2 DAF 
035: 4020014E322E3140 E99 019: F1908D84A808D91F BF9 00D: D215F38F4EFFO5CD 183 
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O0E : 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
01B: 
01C: 
01D: 
01E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 


KEYWAIT 


000: 
001: 
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137D51378F130018 4ED 
B370D4131DB8FD3D 8A5 
E013713510B8FF6F C41 
4020AF21BF85F214 FD3 
21A1C6F146E281EE 37C 
6D4EAD8C414610A1 721 
351B098F21461091 A8B 
84146EA4D4CE80D0 E38 
F607542D90613706 1BE 
137D8D5701107135 531 
07D5562CD1191344 8AC 
5114A17114F9629C C29 
CD52F112131112AF FB1 
2D6133EA20118135 329 
8A8671038F96F401 6B3 
BF85F21461341F1C A4E 
6F2AD0143EA11BCA E07 
81C100D9067C00B1 184 
C3E3B1E3FF071358 531 
FE0C1007D58F6179 8D5 
01188F1C6908F898 C67 
108DE73008FC2DE0 00F 
D78F13001208B360 382 
696E11813710B8FD 720 
A6701181354908D8 A9C 
4A80639E15271577 E13 
9760016F17FCDSAE 1C6 
152115719160003 4CF 


ID#52 55 octets 


0123456789ABCDEF sm 


B454957514944502 366 
802E003221525078 6B8 


002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 


FILELEX 


000: 
001: 
002: 
003: 
008 : 
005: 
006: 
007: 
008: 
009: 
00A: 


DESLEX 


000: 
001: 
002: 
003: 
004 
005: 


3700025101000000 908 
F710000000000000 D09 
0E1000FFB4549575 094 
14944542101FF001 3F4 
361081371098F2C6 764 
0045111913511813 AAO 
48D8ACA18F127006 E3C 
BDF FOB 


ID#E1 64 octets 


0123456789ABCDEF sm 


6494C454C4548502 376 
802E003221525078 6C8 
580001E707000000 A09 
F710000000000000 D37 
091000F96494C454 OA7 
F3701FF411136068 422 
F5989057097C908D 7C5 
A9390137068F77F9 B57 
0AF0480844BF4071 EE8 
351CF1517071348D 263 
C32F0 386 


ID#E1 
0123456789ABCDEF sm 


445435C454850202 35A 
802E004221525078 6AD 
732001EC0F000000 A08 
F230000000000000 D33 
OCE000F31016000D OAO 
4200B000FF20DF00 420 


281 octets 


006: 
007: 
008 
009: 
00A: 
008: 
00C: 
00D: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
01D: 
01E: 
01F: 
020: 
021: 
022 
023: 
024: 
025: 


OFF34F4E44525143 
545C0D94E4655425 
3554D0794E46542E 
09051494E445F01F 
FF30001400034C50 
001F401E27C20310 
61E002E7E1031C41 
E003E70108D84A80 
80303500314BBEC1 
49171CECEBAEDE01 
4111371351088F83 
DBOD6éBAA6O7BCF 12 
81358DC32F000136 
1081BEF3E2D015A0 
8FB13811201188D9 
12F0888331361081 
371091358FC8CB01 
0A8F322B11228F32 
2B112210317F8FC1 
DBO8F32281123313 
89E65112231709E6 
901226700608034D 
50001B442E28B680 
1A4A1E31D28B6801 
A401E136C2C21361 
&AT1AAESAF230196 
OCOAGÉAËDÉLFFAE7 
0E62123AE811310A 
AEB969A00E6E6A00 
BEE0E661481128FB 
1381120119137118 
8D912F0 





TAE 
B34 
EBC 
23B 
59E 
901 
C7D 
003 
38F 
75D 
AB9 
E7E 
1F3 
58F 
918 
C73 
FFF 
380 
6FE 
A79 
DEF 
143 
4B4 
844 
BBE 
F5D 
334 
6AC 
A64 
E12 
15C 
2F1 
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ENGLISH SUMMARY 
JPC 45 - JUNE 1987 


The Journal has been produced since JPC 35 by a new team, with Pierre David, Jean-Jacques Dhénin and 
Janick Taillandier. A lot of work was needed to produce the Journal in time and improve its presentation. 
We are proud of what has been accomplished. The same team will now try to improve the general activity of 
the Club. The mail box is a first step to get better answer delays. Please, use only this address : 


PPC Paris 

B.P. 604 

75028 Paris Cedex 01 
France 


We are happy to announce the availability of a new software product for the HP-71. It is a Lex file which 
provides graphic functions for the ThinkJet printer or any other printer using "raster" graphics (QuietJet or 
LaserJet). This is a wonderful realization written by Pierre David. You will find a list of available functions 
on page 4. 


In the HP-28 column, we find a program which explains the use of the infinite RPN stack to solve 
ax2+bx+c=0. It is important to note that people are now beginning to write to JPC about this new 
machine : our members are very interested in it. 


The HP-41 program provides matrix utilities (matrix trace, identity matrix and pointer conversions) using 
the Advantage Rom. They ease the keyboard use of the Rom capabilities. 


The Forth program provides us with a new, enhanced vL1ST type word. It handles vocabularies (CONTEXT 
and CURRENT). Some utility words are included to improve access to Basic from Forth. 


As promised last month by Jacques Baudier, here is the first article in a series introducing assembly 
language on the HP-71. 


Two Lex files for the HP-71 in this issue : the first one gives RREC$ and WREC. These keywords read and write 
sectors from or to a mass-memory device. This allows a clean and easy access to these devices without being 
obliged to use low-level HP-IL commands. 

FIND was already published in JPC 31 (February 86). This keyword allows you to search for a string in a 
Basic program as does FETCH on the HP-75. This new, debbuged version moves the cursor to the beginning of 
the matching string. 


Then we have a "Lex editor", written in Basic but using Forth, which allows some actions on a Lex : nice 
example of the capabilities provided by the Basic / Forth interface. 


François Duret-Lamouroux, a beginner programmer, presents us a small navigation program on page 25. 

At the end of the Journal is a curve fitting program adaptated to the HP-71 from an old HP-75 program 
published in PPC Computer Journal. Michel Martinet took great care to program a nice and pleasant user 
interface. More, this program uses no Lex file. 


Until next month, 


Happy Programming and JPC reading ! 


